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PROGRAM NAME’ CODE/SPIES 


00001 DIM L$(80) 

00002 CNTRL 02100 

00003 REM WRITTEN BY SM SPIES»MD 2/778 

00004 REM HUG CODE/SPIES..2330 BYTES 

00010 PRINT TAB(20)"MORSE CODE GENERATOR"SPRINT ¢PRINT ¢PRINT 
00020 PRINT "THIS FROGRAM ALLOWS YOU TO GENERATE MORSE CODE FROM" 
00022 PRINT “THE KEYBOARD OF THE CONSOLE TERMINAL" 

00025 PRINT tPRINT “IMMEDIATE MODE WILL RESPOND DIRECTLY TO KEYBO 
ARD ENTRIES* 

00026 PRINT {PRINT "TEXT MODE WILL ALLOW ENTRY OF A LINE OF TEXT 
BEFORE SENDING" 

00028 PRINT tPRINT "TO EXIT IMMEDIATE MODE, TYPE CTRL~B» THEN SPA 
CE BAR" 

00029 PRINT "TO EXIT TEXT MODE» ENTER’~’ AS LINE OF TEXT" 

00030 PRINT "SPEED 1 IS EXTREMELY FAST» SPEED 30 IS EXTREMELY SLO 


00100 PRINT $PRINT “ENTER SPEED (1 TO 30)" 3 INPUT N 

00102 LINE INPUT "TEXT OR IMMEDIATE? "sAS 

00104 IF LEFT#(A$*1)="I"THEN 110 

00105 N1=913N2=823N3=73°3N4=583GOTO 6000 

00110 N1=2192N2=2103N3=2013N4=186 

00130 IF LEFT$(A$r1)="T"GOTO 152: PAUSE 

00131 PAUSE 

00132 IF LEFT#(Atr1)="I"THEN 200 

00134 FOR I=1TO LEN(T$)$Z1=ASC(LS(T)) 

00140 ON N1-Z1IGOTO 300073010%3020% 3030» 30409 30509 30607 30707 3080 
00142 ON N2-Z1GOTO 309074000+% 40107 4020» 4030» 4040» 40504 4040 1 4070 
00144 ON N3-Z1IGOTO 40807 4090%5000%501025020 15030 ¥5040 75050 
00146 ON N4-Z1GOTO 909079080290702 9060 19050 ¥ 9040 ¥ 9030 29020 2 901099 


00150 IF LEFT#(A%21)="I"GOTO 130 

00152 NEXT I 

00160 GOTO 6000 

00200 Z1=PIN(250)3GOTO 140 

01000 REM DOT GENERATOR 

01010 POKE 8201%112:PAUSE (N)3FORE 82017240 
01012 FAUSE (3xXN) } RETURN 

01020 RETURN 

02000 REM DASH GENERATOR 


FPROGRA 


M NAME? 


COUE/SPIES < 


CONT’D > 


02010 POKE 820171123FAUSE (4KN) $POKE 8201%240 
FAUSE (3XN) {RETURN 


02020 
03000 
03001 
03010 
03011 
03012 
03020 
03021 
03030 
03031 
03040 
03041 
03050 
03051 
03060 
03070 
03080 
03090 
03091 
04000 
04001 
04010 
04020 
04030 
04040 
04041 
04050 
04060 
04061 
04070 
04080 
04081 
04090 
05000 
05001 
05010 
05020 
05030 


GOSUB 2000:3GOSUB 
GOTO 130 
GOSUBR 2000?GOSURB 
GOTO 130 
GOTO 130 
GOSUB 2000:GOSUB 
GOTO 130 
GOSUB 1000;3GOSUB 
GOTO 130 
GOSUB 1000:GOSUB 
GOTO 130 
GOSUB 1000:3GOSUB 
GOTO 130 


20003 GOSUB 


1000: GOSUB 


10003GOSUB 
20003 GOSUE 
1000;GOSUB 


1000:GOSUR 


GOSUB 20003GOTO 130 


GOSUB 1000:GOSUB 
GOSUB 1000:GOSUR 
GOSUB 2000:GOSUB 
GOTO 130 

GOSUB 1000:GOSUB 
GOTO 130 

GOSUB 2000:GOSUB 
GOSUB 2000:GOSUR 
GOSUB 2000:GOSUR 
GOSUB 1000:GOSUB 
GOTO 130 

GOSUB 2000:GOSUB 
GOSUB 1000:3GOSUB 
GOTO 130 

GOSUB 1000:GOSUEB 
GOSUB 10003GOSUER 
GOTO 130 

GOSUB 2000:GOSUR 
GOSUB 1000;3GOSUB 
GOTO 130 

GOSUB 
GOSUB 2000:GOSURB 
GOSUB 2000:GOSUR 


1000:GOSUB 
2000: GOSUB 
2000: GOSUB 
2000;3GOSUB 


2000: GOSUB 


1000:GOSUB 1000 


20003GOSUB 2000 


1000:GOSUB 2000 
2000 
1000;3;GOSUB 2000 
2000 

1000:GOTO 130 
1000:GOTO 130 
1000:GOSUB 2000 
20003GOSUB 1000 


2000;GOTO 130 


1000:GOTO 130 
20003GOTO 130 


2000?GOSUB 


1000:GOSUB 
2000:3GOSUB 


1000:GOSUB 1000 


2000:GOTO 130 
20003GOSUB 2000 


1000:GOTO 130 


1000:GOSUEB 


2000: GOSUR 
1000;GOSUER 


1000:GOTO 130 


1000:3GOSUR 
1000; GOSUR 


1000:GOSUB 1000 
1000:GOTO 130 
2000;GOSUB 1000 


1000:GOTO 130 
2000:;GOSUB 1000 


hh 


” 


CHC USK Ge < SPO PK F KT PEW Ot A Pe R OX E 


PROGRAM NAME! CODE/SPIES < CONT’D > < CONT’D > 


05031 GOTO 130 

05040 GOSUB 2000:GOSUB 1000:GOSUB 1000:GOSUB 1000 

05041 GOTO 130 

05050 GOSUB 1000:GOSUBR 2000:GOTO 130 

06000 REM TEXT INPUT 

06010 LINE INPUT “ENTER LINE OF TEXT*#T$ 

06015 IF LEFT$(T$»1)="~"GOTO 100 

06030 FOR I[=1TO LEN(T$) 

06040 L#(I)=MIDS( TST) 

06050 NEXT I 

06060 GOTO 134 

09000 GOSUB 2000:GOSUB 2000:GOSUBR 2000:GOSUB 2000:GOSUB 2000 
09001 GOTO 130 

09010 GOSUB 1000:GOSUB 2000:GOSUB 2000:GOSUB 2000:GOSUB 2000 
09011 GOTO 130 

09020 GOSUB 1000:GOSUB 1000:GOSUB 2000:GOSUB 2000;:GOSUB 2000 
09021 GOTO 130 

09030 GOSUB 1000:GOSUB 1000:GOSUB 1000:GOSUB 2000:GOSUB 2000 
09031 GOTO 130 

09040 GOSUB 1000:GOSUB 1000:GOSUBR 1000:GOSUB 1000;GOSUB 2000 
09041 GOTO 130 

09050 GOSUB 1000!GOSUB 1000:GOSUB 1000:GOSUB 1000:GOSUB 1000 
09051 GOTO 130 

09060 GOSUB 2000:GOSUB 10003GOSUBR 1000:GOSUB 1000:GOSUB 1000 
09061 GOTO 130 

09070 GOSUB 2000:GOSUBR 2000:GOSUB 1000:GOSUB 1000:GOSUB 1000 
09071 GOTO 130 

09080 GOSUB 2000:GOSUB 2000:GOSUB 2000:GOSUB 1000:GOSUB 1000 
09081 GOTO 130 

09090 GOSUB 2000iGOSUB 2000:GOSUR 2000:GOSUB 2000:GOSUB 1000 
09091 GOTO 130 
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PROGRAM NAME? MORSE CODE/BAXTER 


00005 REM 2589 BYTES MORSE CODE/BAXTER 

00010 REM - MORSE CODE PRACTICE FROGRAM — 

00020 REM ~ USES H-8 SPEAKER TO FRODUCE THE TONES ~ 

00025 REM ~ CONFIGURE HIGH MEMORY TO 22525 DECIMAL. - 146K MEMORY 
NEEDED, 

00030 GOSUB 20003REM PRINT INSTRUCTIONS 

00040 REM ~- LINE SO SETS UF USER FUNCTION - 

00050 POKE 225287623POKE 22530°19SPOKE 225317963POKE 2253272%P0K 

E 225339191 

00060 POKE 17267,0003FOKE 17268/88:REM STARTING ADDRESS FOR USER 
FUNCTION 

00070 INPUT "1 IS FASTEST» 18 IS SLOWEST. SPEED?"s03%IF D3<1 OR DO 
3718 THEN 70 

00080 N2=D3k13+203REM f2kx2 IS THE DURATION OF DASH TONE IN MILL 
ISECONDS, 

00090 LINE INPUT “WANT A QUIZ?"S$L$2IF LEFT$(L$s1)="Y" THEN 1000 

00100 PRINT :PRINT 

00110 L=120 

00120 LINE INPUT “MESSAGE? "sA$2 IF A$="SFPEED" THEN 70 

00130 IF A$="QUIZ"* THEN 1000 

00140 FOR I=1 TO LEN(A$) 

00150 BS=MIDS(A$sT +1) 

00160 IF ASC(B$)>=ASC(" ") AND ASC(BS$)<=ASCC"Z") THEN GOSUB 10xAS 
CC B$)-120 

00170 IF D¢="" THEN 70 

00180 GOTO 800 

00190 REM BELOW ARE DASH-DOT STRINGS 

00200 D¢=" "RETURN 

00210 Ds="" RETURN 

00220 [1$=".-.e--"S RETURN 

00230 REM ~- NEXT FEW CHARACTERS NOT IN MORSE CODE - FALLS THROUGH 
TO 310 

00240 REM 

00250 REM 

00260 REM 

00270 REM 

00280 REM 

00290 REM 

00300 REM 
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PROGRAM NAME! MORSE CODE/BAXTER «= CONT‘D > 


00310 D¢=""SRETURN 

00320 D$="--..-—-" RETURN 
00330 D$="" RETURN 

00340 DS$=".-+-+-" SRETURN 
00350 D$="-..-. "RETURN 
00360 D$="----— "RETURN 
00370 D$=",.---~" RETURN 
00380 D$="..--~"SRETURN 
00390 DS$=".ee--" SRETURN 
00400 D$="++ee-"S RETURN 
00410 DS="seeee" RETURN 
00420 DS="—seee"SRETURN 
00430 DS="--+ee"SRETURN 
00440 D$="-~--. +" SRETURN 
00450 D$="--~-—. "SRETURN 
00460 DS="---++6"SRETURN 
00470 DS="-+-e~+ "3 RETURN 
00480 DS$=".e-+ *SRETURN 
00490 D$="--,. "SRETURN 
00500 D¢=""RETURN 

00510 DS=".e--++ "SRETURN 
00520 D$="" RETURN 


00530 Dg=",.-" RETURN 
00540 DS="-.+. "RETURN 
00550 Lg="-.-. "RETURN 
00560 De="-.. "RETURN 
00570 Ig="."* RETURN 
00580 D$="..-. "RETURN 
00590 D$="-—-."SRETURN 
00600 DB=".eee *SRETURN 
00610 D$=".." RETURN 
00620 D¢=".---"TRETURN 
00630 Dg="-.-"S RETURN 
00640 DI$=".-+e "SRETURN 
00650 l$="--—" RETURN 
00660 DS$="-. "?RETURN 
00670 D¢="--~-" RETURN 
00680 D¢=".--. "RETURN 
00690 D$="--.-" SRETURN 
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PROGRAM NAME? MORSE CODE/BAXTER < CONT’D > < CONT’D > 


00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
01000 
01005 
+65) 

01010 


N$=".-. "RETURN 

N$=".6+"3RETURN 

D$="~" }RETURN 

N$="..-" RETURN 

N$="44.-"SRETURN 

N$=",-~" SRETURN 

N$="-..-"SRETURN 

D$="~,--—" RETURN 

N¢$="~—-,. "RETURN 

REM CONVERTS THE ‘~’ OR *." TO DURATION OF THE TONE 
FOR J=1 TO LEN( DS) 

IF MID$(0$,Je1)="~" THEN T=D2{GOTO 850 
IF MIUS(UGsJe1)<>"." THEN 870 
T=INT(DN2/3) 

POKE 22529%T 

W=USR(T)3 REM SFEAKER NOW GIVES TONE 
PAUSE INT(H273) 

NEXT J¢PAUSE D23IF L>300 THEN 900 

NEXT I 

PRINT $PAUSE 2x02:3GOTO L 

REM ~ QUIZ ON MORSE CODE ~ 

REM (IF YOU WANT LETTERS ONLY» CHANGE! 1010 A=INTCRND(1)*26 


A=INTCRND(1)*43448)31IF A>S9 AND A<65 THEN 1010$REM 59<A<65 


NOT IN MORSE 


01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
02000 
LL BE 
02010 


BS=CHRS$ (A) IN=Nt1 

GOSUB 10xA-120 

L=1050:GOTO 800 

LINE INFUT sE% 

IF E¢="QUIT" THEN 1100 

IF E¢="GIVE" THEN PRINT BS$GOTO 1010 

IF E$=B¢ THEN FRINT "RIGHT! "{GOTO 1010 

PRINT "WRONG» TRY AGAIN. "$Q=Qt1iN=N4+1{GOTO 1040 

PRINT "YOU GOT"#Q# "WRONG OUT OF "3N 

PRINT 

N=0;Q=0?GOTO 100 

PRINT " THIS IS A MORSE CODE PRACTICE PROGRAM. FIRST YOU WI 
ASKED" 

PRINT "HOW FAST A SPEED YOU WANT» THEN IF YOU WANT A QUIZ." 


. ad 
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PROGRAM NAME? MORSE CODE/BAXTER << CONT’D > 


02020 PRINT "A QUIZ FRODUCES RANDOM LETTERS 
T IDENTIFY.* 

02030 PRINT “IF YOU CAN‘’T GET THE WORD THEN 
LL TELL YOU." 

02040 PRINT "IF YOU DON’T WANT A QUIZ» THEN 
STION. "$PRINT 


=< CONT’D > << CONT‘D 


IN CODE WHICH YOU MUS 
TYPE ‘GIVE’ AND IT WI 


ANSWER NO TO THAT QUE 


02050 PRINT "AFTER THIS YOU CAN TYPE IN A LETTER OR MESSAGE, AND 


HEAR WHAT" 

02060 PRINT "IT SOUNDS LIKE. IF AT ANY TIME 
TYPE IN* 

02070 PRINT "’QUIZ’ AS YOUR MESSAGE. ALSO,» 

N. “SPEED*.° 

02080 FRINT 

02090 RETURN 


fo 
Sad 
ad 
oe 
Sad 
+ 
. ad 
od 
oa 
7 
Sd 
Sd 
77 
ce 
ad 
o 
oo 
o- 
oe 
Sad 
oe 


YOU WANT A QUIZ» JUST 


TO CHANGE RATE TYPE I 


7 
* 
oe 
Saad 
+ 
ad 
oe 
aad 
Sa dad 
oo 
77 
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PROGRAM NAME? INTERNATIONAL MORSE CODE/REYES 


1 REM ~ INTERNATIONAL MORSE CODE FROGRAM BY PHIL REYES» KH6PR» HAWAII» 7/78 
2 REM ~ PROGRAMMED ON AN H1i COMPUTER 


10 PRINT 0K 8 dO x YOO oO took WK ook YOO OK a ook 
20 PRINT * c a Cc a: 

21 PRINT 

30 PRINT * yOOK OK " 

40 PRINT * D E* 

41 PRINT 

50 PRINT “OKO Ok OOK xe OK x OOK OK OK ak Pats ett a | x OK 
60 PRINT * K 6 Pp R* 

70 FUR X=1 TO 2500\NEXT X 

80 PRINT 

90. PRINT "THE FURPOSE OF THIS FROGRAM IS TO ASSIST IN LEARNING OR REVIEWING® 
100 PRINT "THE INTERNATIONAL MORSE CODE. THE PROGRAM CONSISTS OF TWO PARTS!* 
105 FRINT 

110 PRINT * (PART 1) - LEARNING THE MORSE CODE ALPHABETS AND NUMERALS, * 
120 PRINT * (PART 2) ~ THE COMPUTER WILL RANDOMLY SELECT CODES AND YOU" 
130 PRINT * ARE TO INPUT THE CORRESPONDING ALFHABETS/NUMERALS. * 
140 PRINT 

160 PRINT "PART (1) OR (2) 3 

170 INPUT F\IF F=2 THEN 2000 

L000 PRINT \PRINT "(PART 1)% IN THIS PART WE WILL LEARN THE MORSE CODES IN* 
1001 PRINT "GROUPS OF SIX (6). YOU CAN ACCESS ANY OF THESE GROUPS BY TYPING® 
1002 PRINT "THE GROUP NUMBER AND HITTING ‘RETURN’. BY ENTERING ZERO (0)» THE® 
1003 PRINT "COMPUTER WILL SELECT THE GROUPS IN SEQUENTIAL ORDER. HAVE FUN!® 
1100 PRINT 

1110 PRINT "GROUF #1: EI SH 5 Z GROUF #43 F 2U 3 4N° 

1111 PRINT “GROUF #2: TMOOAR GROUP #5: DB689 Xx 

1112 PRINT "GROUP #3: Lo oW oa FU GROUP #6: GO@7KC Y* 

1200 FRINT \GO TO 1390 

1300 PRINT “ENTER ‘0’ OR GROUP NUMBER “#\INFUT G\PRINT 

1301 IF G=1 THEN 1400 \IF G=2 THEN 1500 \IF G=3 THEN 1600 

1302 IF G=4 THEN 1700 \IF G=S THEN 1800 \IF G=6 THEN 1900 

1303 RETURN 

1390 GOSUR 1300 

1400 PRINT “GROUP I: £ I 8 H § 2Z2* 

1401 PRINT 

1410 PRINT TAR(10)$"E"$TAB(25)3"m (DIT)* 

1411 PRINT TAB(10)6 "I$ TABC25) 5° & (DI DIT)* 

1412 PRINT TAB(10)3"S*STAB(25)3°% X& (OI DI pIT)* 

1413 PRINT TAR(10)$*H*$TAB(25)9°e x x OX (DI DI DI DIT)® 

1414 PRINT TAB(10)3*S"$TABC25)3"e Kk Ok O* (DI DI DI DI bIT)® 

1415 PRINT TAB(10)3*Z"$TABC25) § 0k HOOK Ok (DAH DAH DI DIT)* 

1416 PRINT 

1490 GOSUB 1300 

1500 FRINT "GROUP II; T M 0 0 A R* 

1501 PRINT 

1510 PRINT TAB(10)#"T"sTAB(25) § kaK (DAH) * 

1511 PRINT TAB(10)$"M"°#TABC25) 6 KK 10K (DAH DAH) * 

1512 PRINT TAB(10)3"O"3TAB(25) § 0K OOK 1K (DAH DAH DAH)* 

1513 PRINT TAB(10)3"0 ZERO"#TAB(25) 3 OOK OOK ook ok doa (DAH DAH DAH DAH DAH) * 
1514 PRINT TAB(10)3*°A"#TAB(25) 5 "x Kom (DI DAH)* 

1515 PRINT TAB(10)3"R°$TAB(25) 6 "x ok x (DI DAH DIT)* 

1516 PRINT 

1590 GOSUB 1300 

1600 PRINT "GROUF III: t WwW J 4 P US 

1601 PRINT 

1610 PRINT TAB(10)3"L"$TAB(25) 3 OOK OX (DI DAH DI DIT)* 

1611 PRINT TABC1O)$"W*sTABC25) $x ok ORK (DI DAH DAH) * 

1612 PRINT TAB(10)$*J*3TABC25) 30k OOK OK took (DI DAH DAH DAH) * 

1613 PRINT TAB(10)3"1"°3TABC25) 3 (Ok (GOK oO saa ook (DI DAH DAH DAH DAH)* 
1614 PRINT TABCIO)$ "F*$TAB(25)0°R KKK KK OK (Di DAH DAH NIT>® 


PROGRAM NAMES INTERNATIONAL MORSE CODE/REYES 


1615 
1614 
1690 
1700 
1704 
1710 
1711 
1712 
4713 
1714 
1715 
1716 
1790 
1800 
1801. 
1810 
1814 
1812 
IBZ 
1814 
1815 
1816 
1890 
1900 
1904 
1910 
1914 
1912 
L913 
1914 
1918 
1716 
LPL? 
1990 
L997 
2000 
2010 
2020 
2024 
2025 


2030 


PRINT TAB(1O) "US TABC25) 5°" K kK (DI DI DAH)" 
PRINT 

GOSUB 1300 

PRINT "GROUP IVs F 2 V¥ 3 4 =N® 


PRINT 

PRINT TAR(10)$"F"#TABC25) 5" Ok OK (DI DI DAH DIT)* 
PRINT TAR(1O)$"2"9TARC25) 9X 0k 010K OOK dotok (DI DI DAH DAH DAH) * 
PRINT TARCLOD$*V"STARC25) 5 "% KK kK (DI DY DI DAH)" 
PRINT TAR(1O)$"3"° 5 TAB(25) 9 Ok Ok  loiok (DI DI DI DAH DAH)* 
PRINT TAR(1LO)$°4°¢TABR(25) 9 °% Kk Ok OK (iI DI DI DI DAHD® 
PRINT TABCL0O)¢*N"STABC25) 5" HKK & (DAH DIT)* 

PRINT 


GOSUR 1300 
PRINT "GROUF V3 Db B 6&6 8 Y X* 
PRINT 


PRINT TAK(LO)$ "D'S TABC25) 6 "XK OK (DAH DI DIT)* 

PRINT TAR(1LO)$ "BR" FTARC25) § "KWOK KOK OX (DAH tI DI DIT)" 

PRINT TAB(CLODS*6*STARC25) F"HKK KOK OK OX (DAH DI DI DI DIT)* 
PRINT TAR(10)9 "8" *TAB(25) 7 OK OK OK OK OK (DAH CAH DAH DI D{T)* 
PRINT TABCIO)$"9"§TABC25) § 0K OOK tO IK Ok (DAH DAH TAH DAH LIT)* 
PRINT TAERCLO)#"X" 3 TABC25) 9 KOK Ok Ok Ok (DAH DI DI DAH)" 


PRINT 
GOSUB 1400 
PRINT "GROUP VIt G6 Q@?7? kK Cc Y¥* 


PRINT 

PRINT TAR(1O)$"G"*TARC25) § OOK OOK ok (DAH DAH DIT)* 

PRINT TABC1LO)$"Q" 3 TAB(C 25) 3 0K HOOK ok KOK (DAH LAH DI DAH)" 

PRINT TABCLO)$* 7" 3 TABC 25) § "0OKK KK OK OK OK (UAH DAH DI GT DIT)" 
PRINT TARCLO) SK" 3 TAR C25) 9 OOK Ok OK (NAH DI DAH)" 

PRINT TAERCIO)S"C*#TABC2S) § OOK Ok KKK Ok (DAH DI DAH DIT) NOTE 1" 
PRINT TARCLO)$"Y"§TABC2S5) § OK Ok OK 10K (DAH DI DAH DAH) * 


PRINT \PRINT "NOTE 1% NOTE THAT THE SRI! ELEMENT IS ACCENTED" 

PRINT 

FOSUB 1300 

GO TO 160 

PRINT \PRINT “(FART 2)3 THE COMPUTER WILL RANDOMLY SELECT CODES AND YOU" 

PRINT "ARE TO INFUT THE CORRESPONDING ALPHABET OR NUMERAL. YOU WILL BE" 

FRINT "GIVEN THREE CHANCES. GOOD LUCK. TO TERMINATE, TYPE ‘STOP’ AND® 

PRENT “HIT ‘RETURN’. NOTE? (k= DD Ty okk= DAH) * 4K = DI DAH? 

PRINT \PRINT 

X= INTC S7HRNDCO) )\W=O0 

IF X=0 THEN 2050 \IF X=1 THEN 2051 \IF X=2 THEN 2052 \IF X#3 THEN 2053 

* ¥x4 THEN 2054 \IF X=5 THEN 2055 \IF X=6 THEN 2056 \IF X=7 THEN 2057 

IF X=@ THEN 2058 \IF X=9 THEN 2059 \IF X=10 THEN 2060 \IF X=11 THEN 2061 
- X%=42 THEN 2062 \IF X=13 THEN 2063 \IF X=14 THEN 2064 

X#15 THEN 2065 \IF X=16 THEN 2066 \IF X=17 THEN 2067 

X=18 THEN 2068 \IF X=19 THEN 2069 \IF X=20 THEN 2070 

* Xe21 THEN 2071 \IF X=22 THEN 2072 \IF X=23 THEN 2073 

X=24 THEN 2074 \IF X=#25 THEN 2075 \IF X=26 THEN 2076 

' X27 THEN 2077 \IF X=28 THEN 2078 \IF X=29 THEN 2079 

' X¥=30 THEN 2080 \IF X=31 THEN 2081 \IF X=32 THEN 2082 

- X=33 THEN 2083 \IF X=34 THEN 2084 \IF X=35 THEN 2085 

PRINT TAR(3S) 3° #k*"\GO TO 2100 

PRINT TABC35)¢°xRXRK & & H°\GO TO 2110 

PRINT TAR(35)3 "kin kK doa’ NGO TO 2120 

PRINT TAB(35)¢ "eee & R"\GO TO 2130 

PRINT TAB(35)¢"x*\GO TO 2140 


) PRINT TAB(35S)5°* & wk KNGO TO 2150 


PRINT TAB(3S)$*xek HOOK K*\GO TO 2160 
PRINT TAB(35)¢°* & & *K"\GO TO 2170 

PRINT TAB(35)¢°* &*\GO TO 2180 

PRINT TAB(35)5"% #k WOK KKK NGO TO 2190 
PRINT TAR(35)6°xRR & KKK"\GO TO 2200 
FRINT TAB(35)5 "°K ¥kK * R*\GO TO 2210 


2 PRINT TAB(35) $3 "kee KKK"\GO TO 2220 


FRINT TAB(35) 5 "exe ¥*°\GO TO 2230 


PROGRAM NAME? INTERNATIONAL MORSE CODE/REYES 


2064 PRINT TABC3S) § KKK WOKK KKK"\GO TO 2240 

2065 PRINT TAB(35) 5% tok dokk *"\GO TO 2250 

2066 PRINT TABRCSS) 6 "OK RK KX KKK"\GO TO 22460 

2067 PRINT TABC35S) 5° KKK E"\GO TO 2270 

2068 PRINT TAB(35)5"* & K*\GO TO 2280 

2069 PRINT TABC3S) 5 "**kK"\GO TO 2290 

2070 PRINT TAR(35)¢"* * *KK"\GO TO 2300 

2071 PRINT TAB(35)5"% %& &K kKK"\GO TO 2310 

2072 PRINT TABC35)9°x K&K KHK"\GO TO 2320 

2073 PRINT TABC3S) 5 "sake Kok KKK"\GO TO 2330 

2074 PRINT TAB(C35) 3 “ok x lok mk" \GO TO 2340 

2075 PRINT TARC3S)¢"xRe Kook kX K"\GO TO 2350 

2076 PRINT TAB(3S)¢ x (ok guok ok KK NGO TO 2360 
2077 PRINT TAB(35)5"* KKK KKK HKK"\GO TO 2370 

2078 PRINT TAR(35)5°% % xk RR KKK "\GO TO 2380 

2079 PRINT TAB(35)6"* & KX KKK"\GO TO 2390 

2080 PRINT TAB(35)5"* Kk kX K"\GO TO 2400 

2081 PRINT TAB(3S) 5 "xxx kK OK OK K"\GO TO 2410 

2082 PRINT TAR(35) $k xo KK K"\GO TO 2420 

2083 PRINT TAB(35) 3 KK JOKK HOOK ok K"\GO TO 2430 

2084 PRINT TABC3S) 3 OOK ook OOK WoKK K"\GO TO 2440 
2085 PRINT TABC3S) 3 ok OOK ook ORK KK" NGO TO 2450 
2100 INFUT AS\IF AS="A" THEN 3000 \BS="A"\GO TO 4000 
2110 INPUT ASN\IF A$="B* THEN 3000 \BS="B"\GO TO 4000 
2120 INPUT ASN\IF A$="C" THEN 3000 \B$="C"\GO TO 4000 
2130 TINFUT ASNIF AS="D" THEN 3000 \B$="D"\GO TO 4000 
2140 INPUT AS\IF AS="E" THEN 3000 \B$="E"\GO TO 4000 
2150 INFUT ASNLF AS="F" THEN 3000 \B$="F"\GO TO 4000 
2160 [TNFUT AS\IF A$="G" THEN 3000 \B$="G"\GO TO 4000 
INPUT AS\IF THEN 3000 \K$="H"\GO TO 4000 
INPUT ASNTF THEN 3000 \K$="T"\GO TO 4000 
INFUT ASNTF THEN 3000 \R¢="J"\GO TO 4000 
INPUT AS\IF THEN 3000 \B$="K"\GO TO 4000 
INPUT ASNIF THEN 3000 \BS="L°\GO TO 4000 
INPUT ASN\TF THEN 3000 \BS#"M"\GO TO 4000 


INFUT AGN\TF THEN 3000 N*\GO 4000 
INFUY AS\TF THEN 3000 4000 
INPUT AGN\TF THEN 3000 4000 


TNEUT ASS TF 
2270 INPUT ASIF 
INPUT AS\TF 
INPUT AS\TF 
INFUT A$\TF 
LNFUT AS\IF 
TNFUT AS\IF 
INPUT ASN\IF 
TNFUT AS\IF 
INFUT ASN\IF 
TNFUT ASNIF 
INFUT ASNIF 
2380 INFUT AS\TF 
2390 TNFUT ASN\TF 
2400 INFUT AS\IF 
2410 INFUT AS\IF 
2420 INFUY AS\IF 


THEN 3000 \BS="Q"\GO TO 4000 
THEN 3000 \B$="R"\GO TO 4000 
THEN 3000 \R¢: 4000 
THEN 3000 \B$="T*\GO TG 4000 
THEN 3000 \R$="U"\GO TO 4000 
THEN 3000 \R¢="V"\GO TO 4000 
THEN 3000 \B$="W"\GO TO 4000 
THEN 3000 \BH$="X"\GO TO 400¢ 
THEN 3000 \B$="Y"\GO TO 4000 
THEN 3000 \B$="Z"\GO TO 4000 
THEN 3000 \R$="1"\GO TO 4000 
THEN 3000 \B$="2"\GO TO 4000 
THEN 3000 \ES$="3"\GO TO 4000 
THEN 3000 \B$="4"\GO TO 400¢ 
THEN 3000 \B$="5"\GO TO 4000 
THEN 3000 \B$="6"\GO TO 4000 
THEN 3000 \B$="7"\GO TO 4000 
2430 INFUT AS\IF THEN 3000 \B$="8°\GO TO 4000 
2440 INPUT AS\IF THEN 3000 \B$="9"\GO TO 4000 
2450 INPUT AS\IF A$="0O* THEN 3000 \B$="O"\GO TO 4000 
3000 FRINT "VERY GOOL"\GO TO 2030 

4000 IF A$="STOP" THEN 5000 \W=W+1\IF W=3 THEN 4100 
4010 FRINT *°SO SORRY» TRY AGAIN, * 

4020 GO TO 2031 

4050 PRINT 


4100 PRINT "SORRY! THAT’S YOUR 3RD TRY. CORRECT ANSWER IS! *#BS 
4110 PRINT 


4120 GO TO 2030 


5000 PRINT \FRINT "O K IT’S BEEN FUN. HPE TO C U AGN SN. 73 & ALOHAr PHIL. * 
5001 END 


FROGRAM NAME? 


00010 
00020 
00030 
00040 
00045 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00140 
00170 
00180 
OO190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
003790 
00380 


REM THIS FROGRAM DESINGS SMALL LOOP ANTENNAS 
REM EFFECTS OF ALTERING VARIOUS PARAMETERS» 
REM WRITTEN BY T.J.»MIESKE HEC#4 


REM 3/24/78 LA MESA»CA 
DIM [1 yRC2) 


FOR X=1 TO 63PRINT ""SNEXT X 

FRINT “LOOP ANTENNA DESIGNER" 

FOR X=1 TO SiPRINT ""SNEXT X 

FRINT "THIS FROGRAM AIDNS IN THE DESIGN" 
FRINT “OF LOOF ANTENNASS SMALL COMPARED" 
PRINT "TO THEIR OFERATING FREQ," 


PRINT 


FRINT "ENTER DATA AS REQUIRED" 


ERINT 
FOR X=1 TO 1000%NEXT X 


FOR X=1 TO 20¢3F RINT ""NEXT X 


INFUT "ENTER FREQ, “$F 
PRINT 

FRINT 

INFUT “ENTER LOOF DTA. 
LET KeQsLeT 2=F 

PRINT 

GOSUB 1180 


PRINT “THE RADIATION RESISTANCE OF A* 
FRINT "LOOF ANTENNA‘ SD "FEET IN DTA" 


LOOF ANTENNA DESTGNER/MIESKE 


092041 


"oD 


PRINT "IS "sRe"AT"SFS "MHZ." 


PRINT 


PRINT "LOOF ANTENNA EFFI CIENCY DEPENDS" 
PRINT "ON THE DIAsAND COMPOSITION" 


FRINT "OF THE INDUCTOR 
PRINT 


INFUT "ENTER CONDUCTOR DTA. CINCHES) "s0C1) 


LET P=DC1) 


PRINT "IS THE CONDUCTOR COPPER OR ALUUMINUM?" 


FRINT "ENTER A OR C" 
LINE INFUT 9A 


IF A$="C" THEN BS="COPPER" 
IF A$="A" THEN BS="ALUMINUM" 


GOSUB 1200 


1 82 


ANT 


%, 


SHOWS 


FROGRAM NAME? 


00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
006640 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 


GOSUB 1250 
FRINT 


LOOF ANTENNA DESIGNER/MIESKE < CONT‘D > 


FRINT "tO YOU WISH TO ALTER A FARAMETER" 
PRINT “AND OBSERVE THE EEFFECTS? (ENTER Y OR N)" 


LINE INFUT 
IF D¢$="y" 
IF D¢="N* 
IF Dg="N" 
IF C$="Y* 
END 


rls 
THEN 490 
THEN PRINT "D0 YOU WISH A NEW DESIGN?" 
THEN LINE INFUT #C% 
THEN 160 


FRINT "DO YOU WISH TO ALTER~" 
PRINT "1.FREQ." 

FRINT "2.LOOF DIA." 

PRINT "3.CONDUCTOR DTA." 

INFUT "ENTER APPROPRIATE NUMBER"3C 
IF C=1 THEN S90 

IF C#=2 THEN 870 

IF C=3 THEN 1030 

FRINT "ENTER YOUR CHOICE" 


GOTO 490 
LET F=1.8 
GOSUBR 1180 
GOSUB 1200 
GOSUB 1250 
LET F=3.8 
GOSUB 1180 
GOSUB 1200 
GOSUB 1250 
LET Fe7.2 
GOSUB 1180 
GOSUB 1200 
GOSUB 1250 


LET F=14.25 


GOSUB 1180 
GOSUB 1200 
GOSUB 1250 
LET F=21.2 
GOSUB 1180 
GOSUBR 1200 


PROGRAM NAME? LOOF ANTENNA DESTIGNER/MIESKE =< CONT’D > 


00780 GOSUBR 1250 

00790 LET F=28.9 

00800 GOSUB 1180 

00810 GOSUB 1200 

00820 GOSUB 1250 

00830 PRINT "THE FORMULAS USED IN THESE" 
00840 FRINT "CALCULATIONS ARE INSUFFICIENT" 
00850 PRINT “VALIDITY FOR FREQ.ABOVE 10 METERS" 
00860 GOTO 410 

00870 FOR X=1 TO 33FPRINT ""SNEXT X 

00880 LET F=ZiLET 0¢1)=F 

00890 LET K=3 

00900 PRINT "FREQ.IN MEMORY IS"¢Fs "MHZ." 
00910 PRINT “CONDUCTOR IS"+BSs0(1)% "INCHES" 
00920 PRINT "IN DIA." 

00930 FOR X=1 TO 3000:NEXT X 

00940 FRINT 

009460 FOR X=1 TO 8 

00970 GOSUB 1180 

00980 GOSUB 1200 

00990 FRINT KRrE 

01000 LET K=K+1 

01010 NEXT X 

01020 GOTO 410 

01030 FOR X=1 TO S3tPRINT ¢NEXT X 

01040 FRINT “FREQ. IN MEMORY IS "“+Z 

01050 FRINT 

01060 PRINT "LOOF IS*sk$s" AND IS*sDs “ FEET * 
01080 FOR X=1 TO 30003NEXT X 

01090 FRINT 

01100 FRINT "DIA EFF s” 

01110 019-5 

01120 FOR X=1 TO 10 

01130 GOSUB 1180 

01135 GOSUB 1200 

01140 FRINT D1) %E 

O1150 [C1 =001)+.5 

01160 NEXT X 

01170 GOTO 410 


FROGRAM NAME? LOOP ANTENNA DESIGNER/MIESKE < CONT‘D > 


01180 
O1190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
O1390 
01400 
11070 


R=31200K(0 (3. 14K(K/2)°2)/(984/F )72)72 
RETURN 

ROL) =31200K0(03.14K(K/2)7°2)/(984/F 72) 72 
IF A¢$="A"THEN 1390 

RC2)2R C1) KC3.14kK) 

E=R/(R4+R (C2) )*100 

RETURN 

FOR X=1 TO 3 ?PRINT ¢NEXT X 

FRINT "THE LOSS RESISTANCE OF * 

PRINT "ALOOF ANTENNA “s0s" FEET" 

PRINT "IN DTAMETER SNF MADE OF* 

PRINT f1¢1)5" INCH "#R##" TUBING" 

PRINT "IS "#RC2)%" OHMS AT "$Fs" MHZ. " 


PRINT 

PRINT "ITS RADIATION IS "#Rks" OHMS" 

PRINT 

FRINT 

FRINT "IT’S EFFICIENCY IS*SE$ “PER CENT." 
FRINT 

FOR X=1 TO 1000%NEXT X 

RETURN 

RCL =RCLIK1.2 

GOTO i22 


PRINT "IN DTA. "tFRINT 


l= 14 


SECTION I1 


(Computer nosis Instruction) 
PROGRAM NAME PAGE 
MATH CLASS/NORTH isc inns icsccseneevaseneorvsavenaseee 2-1 
MATH TUTOR/BARTOL! «cuscveceasartecsuersssnseseorees 2-6 
TIMES TABLE/IONES i eesece cease cacteewaanew sew antion 2-11 
MATH FACTS/PFEIFER JR. ccacceeccsnceaceccnesaenunns 2-23 
MATHIREECE. ¢cceneene nabs eep cerns ened HH eRs Ew HHO OS 2-27 
MATH QUIZ/FALE. csc ccncacswasntcesensnanessas on eres 2-31 
ARITHMETIC PRACTICE/HOYLE s..ncccscecevencrcensvees 2-36 
MULTIPLICATION PRACTICE/PELLETIER.....cccsssennses 2-41 


NAME THE STATES! CAPITOLS/NICO......cecccvccvceces 2-45 


FROGRAM NAME? MATH CLASS/NORTH 


00001 "NAME"="MATH CLASS--VERS.1.02--BY DEAN NORTH-~3/12/78° 
00002 REM 5022 BYTES 

00005 REM *kxID & H ENTERPRISES» 47-637 HUI ULILI ST.» KANEOHE? HI 
¢ PE7A4AKKK 

00007 REM XKXDEAN NORTH: PROF. --~ PHONE (808) 239-7233KKx 

00008 REM THIS FROGRAM IS A GRADE SCHOOL MATH TUTOR 
00009 REM GIVE INITIAL INSTRUCTIONS AND FIND OUT WHO’S PLAYING 
00010 PRINT “WHENEVER I (THE COMPUTER) ASK YOU A QUESTION, TYFE I 
N THE ANSWER ANI" 

00011 PRINT "THEN FUSH THE BUTTON MARKED ‘RETURN’. HERE WE GOs. 


8 
e¢ 


00012 PRINT 

00015 LINE INPUT "WHAT IS YOUR FIRST NAME? "SAS 

00017 PRINT 

00018 REM MAKE THE PLAYER FEEL WELCOME AND GIVE INSTRUCTIONS 

00020 PRINT "HELLO, "#A$#". TODAY WE WILL SEE HOW WELL YOU HAVE L 

EARNED® 

00030 FRINT "THOSE MATH LESSONS. YOU TELL ME WHAT YOU’D LIKE TO 

WORK ON» ANI" 

00040 PRINT "THEN WE’LL DO IT TOGETHER» JUST YOU AND MEy OKAY? W 

HATEVER YOU" 

00050 PRINT "DECIDE TO WORK ONy "#A$#"» WHETHER IT BE ADDITION: S 

UBTRACTION: * 

00060 FRINT "MULTIPLICATIONy OR DIVISION, I’LL GIVE YOU 13 FROBLE 

MS AND THEN" 

00070 PRINT "WE’LL SEE HOW WELL YOU’VE DONE. OK. eeeeeseHERE WE G 

tt 

00071 PRINT 

00072 PRINT "TELL ME WHAT YOU WANT TO PRACTICE THIS TIME» "SABE". 
ENTER A ‘1’ FOR" 

00074 PRINT “ADDITION PROBLEMS? A ‘2’ FOR SUBTRACTION PROBLEMS» A 
“3° FOR MULTIPLICATION" 

00076 PRINT "PROBLEMS: OR A ‘4’ FOR DIVISION PROBLEMS." 

00078 PRINT “WHICH WILL IT BE?" 

00080 INFUT "PUT IN THE NUMBER FOR THE SKILL YOU WANT TO PRACTICE 
AND HIT THE RETURN KEY: "#X 

00082 ON X GOTO 21073507500788 

00086 PRINT "NO FAIR! YOUR CHOICES ARE 19273» OR 4-.":GOTO 78 

00088 REM THIS IS THE DIVISION PROBLEM PROGRAM SECTION 


hr 
H 
= 


PROGRAM NAMES MATH CLASS/NORTH «= CONT‘D > 


00089 REM SET THE WRONG NUMBER COUNTER TO ZERO 

00090 W=0 

00092 REM ACKNOWLEDGE THE GAME CHOSEN 

00094 PRINT "I LIKE DIVISION PROBLEMS TOO, "sA$$". READY OR NOT» 
HERE THEY COME." 

00096 REM SET UP THE 13 FROBLEM LOOF 

00098 FOR I=1 TO 13 

00100 REM GENERATE THE FROBLEMS WITH 1<=DIVISOR==9 AND WHOLE FOS 
ITIVE ANSWERS 

00101 REM QUOTIENTS ARE LIMITED TO 12 OR LESS (BUT NOT LESS THAN 
2? 

00102 G=INT(CRND(C1)*108)41 

00103 H=INT(RNDC1)*9) 41 

00104 IF (G<H)OR (G/H<>INT(G/H)) THEN 102 

00105 IF G/H>12THEN 103 

00106 PRINT “WHAT IS"sGs"DIVIDED BY"#$H3 

00108 REM CHECK THE ANSWER AND GO TO THE ANSWER SUB-PROGRAMS 
00110 INFUT A 

00112 IF A=G/H THEN GOSUB 810 

00120 GOSUB 800 

00130 GOTO 106 

00200 REM THIS IS THE ADDITION PROBLEM SECTION - ACKNOWLEDGE THA 
+ 

00210 PRINT "ADDITION IT IS. ARE YOU READY? "$?PAUSE 350%PRINT "I 
AM. HERE WE GO..." 

00213 REM SET THE WRONG NUMBER COUNTER TO 0 AND ESTABLISH S#=+ F 
OR PROBLEMS 

00215 S$="+"tW=0 

00216 REM SET THE PROBLEM LOOF AND GO TO THE SET-UP SUBROUTINE 

00217 FOR I=1TO 13 

00218 GOSUB 750 

00219 REM TEST THE ANSWER FOR NUMBER OF DIGITS AND SET ? APPROFR 
IATELY 

00220 IF (GtH)<10OTHEN 250 

00225 IF (GtH)<1O0THEN 260 

00230 PRINT TAB(2)'i3GOTO 270 

00250 PRINT TAR(4)siGOTO 270 

00260 PRINT TAB(3)3 

00269 REM ASK FOR THE ANSWER 


hh 
H 
ho 


FROGRAM NAMES MATH CLASS/NORTH < CONT’D > 


00270 INPUT L 

00290 IF L=(GtH) THEN GOSUB 810 

00300 GOSUB 800 

00310 GOSUB 770 

00315 GOTO 220 

00349 REM THIS IS THE SUBTRACTION SECTION ~ ACKNOWLEDGE THAT 

00350 PRINT "A SUBTRACTION GAME, HUH? OKy “sAGs"* LET’S SEE HOW W 

ELL YOU‘’VE STUDIED." 

00359 REM SET S$ TO ’-’ AND RESET WRONG ANSWER COUNTER 

00360 S$="-"SW=0 

00369 REM SET UP PROBLEM LOOP 

00370 FOR I=1TO 13 

00379 REM GET THE PROBLEM FROM THE PROBLEM GENERATOR SUBROUTINE 
00380 GOSUB 750 

00389 REM SET THE ? AT THE AFFROPRIATE FLACE BASED ON ANSWER SIZ 
E 

00390 IF (G-H)<1OTHEN 410 

00400 PRINT TAB(3)#GOTO 420 

00410 PRINT TAB(4)> 

00419 REM ASK FOR THE ANSWER 

00420 INPUT L 

00430 REM TEST FOR ACCURACY AND CALL THE APPROPRIATE RESPONSE 

00440 IF L=(G-H) THEN GOSUB 810 

00450 GOSUB 800 

00460 GOSUB 770 

00470 GOTO 390 

00499 REM MULTIPLICATION QUIZ SECTION ~ ACKNOWLEDGE THAT 

00500 PRINT "I’M GLAD YOU FICKED THE MULTIPLICATION QUIZ. IT’S. ay 
FAVORITE. * 

00509 REM SET THE WRONG NUMBER COUNTER AND PROBLEM LOOP 

00510 W=0 

00515 FOR I=1TO 13 

00519 REM THE PROBLEMS ARE CHOSEN TO FIT IN A @% X 12 MULTIPLICAT 
ION TABLE 

00520 G=INTCRNDC1)*9) +1 

00530 H=INT(RNDC1)*12)+1 

00540 PRINT "WHAT IS"#G#" TIMES" #He 

00549 REM ASK FOR THE ANSWER 

00550 INPUT L 


ho 
i 


3 


S Hot Uo G> ££ S$ of O >< F PST Pe OW OK A PK OR OK E > 


FROGRAM NAME? MATH CLASS/NORTH = CONT‘D > 


00560 REM TEST THE ANSWER FOR ACCURACY AND GET THE APFROPRIATE R 
E SPONSE 

00570 IF L=(GKH)THEN GOSUB 810 

00580 GOSUB 800 

00590 GOTO S40 

00750 REM THIS SUBFROGRAM GENERATES RANDOM NUMBERS (LESS THAN 10 
0) AND SETS 

00751 REM UP ADDITION AND SUBTRACTION FROBLEMS. 

00753 G=INTCRNDIC1)K99) +1 

00755 IF Ge2THEN 750 

00760 H=INTCRNIVC1)*99) 41 

00763 REM CHECK TO SEE THAT H IS LESS THAN G FOR SUBTRACTION FRO 
BLEMS 

00764 IF X=1THEN 768 

00765 IF H>=G THEN 760 

00768 REM THIS SECTION FORMATS THE PROBLEM PRINTING BASED ON NUM 
BER SIZE 

00770 IF GZ1OTHEN 785 

00775 FRINT TAB(3)5G 

00780 GOTO 790 

00785 PRINT TAB(4)%G 

00788 REM S$ IS EITHER ’+’ OR ’~’ DEPENDING ON THE FROBLEMS 
00790 FRINT TAB(C2)5S%3% 

00791 IF H<1OTHEN 794 

00792 PRINT TAB(C3)5H 

00793 GOTO 795 

00794 FRINT TAR(4)#H 

00795 PRINT TAB(2)§"-~---—— m 

00794 RETURN 

00798 REM THESE ARE THE RIGHT AND WRONG ANSWER SUBROUTINES 

00799 REM IF THE ANSWER WAS WRONG THE COUNTER IS ADVANCED AND TH 
E PROBLEM RETURNS 

00800 FRINT "NOr "SA$$"» THAT’S NOT RIGHT. TRY IT AGAIN." 

00803 W=Wt1 

00806 RETURN 

00810 REM CHECK TO SEE IF ALL PROBLEMS ARE DONE 

00812 IF I=13THEN 818 

00814 PRINT "RIGHT YOU ARE! OK» HERE’S THE NEXT ONES "3NEXT I 
00818 REM THIS IT THE END GAME SUB-PROGRAM WITH FRINTOUTS BASED 
ON THE # WRONG 


ad 


PROGRAM NAME? MATH CLASS/NORTH 


00819 PRINT “RIGHT YOU ARE! "?PRINT 

00820 IF W=OTHEN 880 

00830 PRINT "OKy "sA%s"» THAT WAS THE LAST PROBLEM. YOU GAVE ME*S 

Ws "WRONG * 

00835 REM THE NEXT STEP GUARANTEES GOOD ENGLISH (1 WRONG ANSWERS 
Is FOOR) 

00840 IF W=1THEN 870 

00844 REM IF MORE THAN HALF THE PROBLEMS ARE WRONG THEY GET ANOT 

HER SET OF THEM 

00845 IF W>46THEN 875 

00850 PRINT “ANSWERS, BUT I THINK THAT YOU’RE LEARNING. KEEP IT U 

P!"3GOTO 890 

00870 PRINT “ANSWER WHICH IS VERY GOOD. YOU’RE REALLY LEARNING. "¢ 

GOTO 890 

00875 PRINT "ANSWERSy WHICH ISN’T VERY GOOD. I THINK YOU SHOULD PF 

LAY THE GAME AGAIN." 

00876 GOTO 82 

00879 REM IF THEY’RE ALL RIGHT BELLS EVEN RING 

00880 PRINT "I’M REALLY PROUD OF YOU. D0 YOU REALIZE THAT YOU COM 

PLETED THE® 

00885 PRINT "GAME WITHOUT A SINGLE MISTAKE. FANTASTIC "sASs"!!!! 

00890 LINE INPUT "DO YOU WANT TO PLAY THE GAME AGAIN? "BS 

00899 REM THEY’LL GET A CHOICE OF WHICH GAME TO PLAY IF THEY WAN 

T TO GO AGAIN 

00900 IF B$="YES"THEN PRINT :GOTO 72 

00909 REM THAT’S ALL THEN 

00910 PRINT "OKy IT WAS FUN PLAYING WITH YOU, "sAS%". KEEP UP THE 
GOOD WORK. BYE." 

00920 END 
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PROGRAM NAME? MATH TUTOR/BARTOLI 


00010 REM XXXMATHEMATICS TUTOR BY T.J.+BARTOLI *xx 
00020 REM *kxk H8 WITH 16K OF MEMORY xxx 

00025 DIM A$(10) 

00030 LINE INPUT "WHAT’S YOUR NAME ? "$N% 

00040 PRINT Ns 

00050 LINE INPUT "» DO YOU WANT INSTRUCTIONS ? "$TS 
00060 IF LEFT$(T#»1)="Y" THEN GOSUB 4000 

00065 IF LEFT#(T$s1)="Y" THEN 82 

00070 IF LEFT$(T$s1)="N* THEN 82 

00080 PRINT "ANS. ‘YES’ OR ‘NO’xX*K"+? GOTO SO 

00082 PRINT "HOW OLD ARE YOUr "sNS3 

00083 LINE INPUT " "30% 

00084 IF VAL(0%$)<99 THEN 90 

00085 PRINT "BE SERIOUSyr "$$ GOTO 82 

00090 LINE INPUT "PRESS ANY KEY-"sR¢ 

00100 FOR I=1 TO ASC(RS$) 

00110 X=RNDIC1) 

00120 NEXT I 

00130 LINE INPUT “ADDITION ~ SUBTRACTION ~ MULTIPLICATION ~- DIVIS 
ION ? "sT¢ 

00135 IF LEFT$(T$s1)="M" OR LEFTS$(T$r1)="D" THEN 140 
00136 IF LEFTS$(T$s1)="A" OR LEFT$(T$r1)="S" THEN 140 
00137 IF LEFT$(T$21)="Q" THEN S000 

00138 PRINT "“REENTERXKK"3? GOTO 130 

00140 LINE INPUT "DO YOU WANT TO ADJUST RANGE ? "$R¢ 
00150 IF LEFT#(R$s1)="N" THEN 265 

00160 IF LEFT$(R%s1)="Y" THEN 180 

00170 PRINT "ANS. ‘YES’ OR ‘NO’XKK"+$ GOTO 140 

00180 INFUT * TOF OF ’X’ RANGE= "#X2 

00190 INPUT "BOTTOM OF ’X’ RANGE= "3X1 

00200 INFUT " TOF OF ’Y’ RANGE= "#Y2 

00210 INPUT "BOTTOM OF ’Y’ RANGE= "$Y1 

00220 IF X1>X2 AND Y1>Y2 THEN 250 

00230 IF X1=X2 OR Y1=Y2 THEN 260 

00240 GOTO 270 

00250 PRINT “ILLOGICAL RANGE ON ’X’ AND/OR ‘Y’XkKXREENTER"$GOTO 18 


00260 PRINT "INVALID RANGE ON ’X’ AND/OR ‘Y’XKKREENTER"!GOTO 180 
00265 X2=63 X1=0i Y2=63 Y1=0 REM XXKXDEFAULT RANGE IF NOT SELEC 
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PROGRAM NAME? MATH TUTOR/BARTOLI 


00266 IF LEFT#(T$r1)="A"® OR LEFTS(T$21)="S"* THEN X2=20: Y2=20 
00270 F=F-1 

00280 IF F=2 THEN X=Z2? Y=Z1 

00290 REM 

00320 REM *KxX330 & 340 PICK A RANDOM VALUE FOR X AND YXxx 
00330 X=INT((X2-X1+1)*RNDC1)+X1) 

00340 Y=INT(CY2-Y1+1)*RNDICL)+Y1) 

00350 Z=0 

00354 IF T$="A"* THEN S12 

00355 IF T$="M" THEN 450 

00356 IF T#="S" THEN 432 

00360 D1L=XxY 

00380 REM XXKACCEPT DIVISTONKKX 

00390 PRINT D1s*/"*sxXe"= "3 

00400 LINE INPUT " "#A$(1)$ IF LEFT$(A$(1)91)="Q" THEN 690 
00410 GOSUB 1000 

00420 IF AxX=D11 THEN 5330 

00430 GOTO 600 

00431 REM XKxXACCEPT SUBTRACTIONKXX 

00432 IF VAL(O$)>=8 THEN 436 
00433 IF X>=Y THEN PRINT * ‘ 
00434 IF X< Y THEN FRINT " wi 
00435 GOTO 437 

00436 PRINT " “3X3 PRINT © -—"$YS$ AL=X~-Y 

00437 LINE INFUT "= "$A$(1)2 IF LEFT#(A$(1)91)="Q" THEN 690 
00438 GOSUB 1000 

00439 IF A=Al THEN 530 

00440 GOSUB 600 

00441 REM XXxACCEPT MULTIFLICATIONKKX 

00450 PRINT " "9Xs 

00460 PRINT " X"5Y% 

00480 LINE INPUT "= "sA$(1)3 IF LEFT$(A$(1)21)="Q" THEN 690 
00490 GOSUB 1000 

00500 IF A=XxkY THEN 530 

00510 GOTO 600 

00511 REM XKXACCEPT ADDITIONKKX 

00512 PRINT " "3X3? PRINT "— +"9Y3 

00513 LINE INPUT "= "sA$(1)% IF LEFT#(A$(1)71)="Q" THEN 690 
00514 GOSUB 1000 
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PROGRAM NAME? MATH TUTOR/BARTOLI «< CONT’D > 


00515 IF A=X+Y THEN 530 

00516 GOTO 600 

00520 REM XXKRING THEIR LITTLE CHIMES. KEEP TRACK OF ‘RIGHTS’ AND 
FLAGSKXX 

00530 FOR M=1 TO 103 PRINT CHR$(7)¢% NEXT M 

00540 R=R+1 

00550 F=Ft1 

00555 Z=1 

00560 GOSUB 2000 

00570 IF Z=1 THEN 270 

00590 REM XXXKEEP TRACK OF ‘WRONGS’ AND PICK A NO-NO MESSAGE XXX 
00600 W=W4+1 

00620 IF X=X2 THEN PRINT TAB(25)"kxkkk NOT TOO GOOD "NS 

00630 IF X=X1 THEN PRINT TAB(25) "Xxx "3N$%"» YOU SHOULD KNOW BET 
TER!" 

00640 IF X<X2 ANI! X>X1 THEN PRINT TAB(25) "kkk TRY AGAIN: "#NS 
00650 REM XKXSET UP FLAGS AND THINGS SO WRONG FROBLEMS CAN BE REP 
EATEDRKX 

00660 F=43 Z1=Xi Z2=Y 

00670 GOTO 350 

00680 REM XXXGIVE THEM THE SCOREX*XxX 

00490 S=(R/(RtW) )*100 

00700 FRINT 

00710 PRINT Re" CORRECT#"s Ws" WRONG" 

00730 PRINT “YOUR SCORE IS? "sINT(S)9"X" 

00735 GOTO 130 

00740 PRINT “HERE’S YOUR FROBLEM AGAIN»: "sN% 

00750 FRINT 

00760 GOTO 350 

01000 IF LEFT#(A$(1)91)="-" THEN 1040 

01010 IF LEFT#(A$(1)91)="+" THEN 1060 

01020 A=VAL(ASC1)) 

01030 GOTO 1080 

01040 S$3=-1 

01050 GOTO 1070 

01060 S3=+t1 

01070 A=VAL (MINS (A$(C1) 22210) )*S3 

01080 RETURN 

02000 REM XXXSELECT THE GOODIE MESSAGEXK* 


FROGRAM NAME? MATH TUTOR/BARTOLI «< CONT‘D > 


02010 IF RND(1)>.7 THEN RETURN 

02020 IF RND(1)>.4 AND X<X2 THEN X=X+1i S1=1 

02030 IF X=X1 OR X=(X1+1) THEN PRINT TAB(30)"YOU GOT IT! "+s 

02040 IF X=(X1+2) THEN PRINT TAB(30)"GOOD FIGURING "“sN$% 

02050 IF X=(X1+3) THEN PRINT TABC3O)9NG$F"» YOURE A WIZZ" 

02060 IF X>=(X1+4) THEN PRINT TAB(30) "ANOTHER RIGHT ANSWER, “FNS 
3 

02070 IF X=Y AND Q#.4 THEN 2090 

02080 GOTO 2100 

02090 PRINT *..++BUT IT WAS EASY!"+ Q=1 

02100 IF Y=(X-1) AND $1=1 THEN 2120 

02110 PRINT $ GOTO 2130 

02120 PRINT "..+BUT IT WAS EASY!" Q=1 

02130 IF S1=1 THEN S1=03 X=X~1 

02140 RETURN 

02150 REM XKKXKK INSTRUCTIONS *kXXxX 

04000 PRINT {PRINT ¢PRINT 

04010 PRINT “WHEN YOU ARE FINISHED READING EACH PAGE» TYPE ’RETUR 
N’* 

04020 PRINT tPRINT SPRINT "THIS PROGRAM WILL HELP YOU LEARN: "3PRI 
NT 

04030 PRINT TAB(10) "ADDITION" 

04040 PRINT TAB(10) "SUBTRACTION" 

04060 PRINT TAR(10) "MULTIPLICATION" 

04080 PRINT TAB(10) "DIVISION" 

04100 PRINT $ INPUT 

04120 PRINT "THINGS YOU HAVE TO DO TO GET STARTED ARE?" 

04140 PRINT TAB(S) "1. PRESS ANY LETTER OR NUMBER KEY AND THEN ’R 
ETURN’.° 

04160 PRINT TAB(9) "THIS MAKES SURE YOU START WITH A NEW SET OF PR 
OBLEMS "3 

04180 PRINT “EACH TIME." 

04200 PRINT 

04220 PRINT TAB(S)"2. TYPE ’A’s’S’s’M’» OR ‘DD’ FOR ADDITION, SUB 
TRACTIONys "3 

04240 PRINT "MULTIPLICATION," PRINT TAB(9)*OR DIVISION" 

04250 PRINT 

04260 PRINT TAB(S)"3. ALWAYS HIT “’RETURN’ AFTER EACH ANSWER TO L. 
ET THE "3 

04280 FRINT "COMPUTER KNOW"? PRINT TAB(9)"YOU ARE FINISHED TYPIN 
G.*? PRINT 
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PROGRAM NAME 


04290 INPUT 
04300 FRINT 
ADJUST RANGE 
04320 PRINT 
N AND *% 
04340 PRINT 
04360 FRINT 
04380 FRINT 
04400 
04420 
R." 
04440 PRINT 
G A BELL»?* 
04460 PRINT 
HANCE TO "3 
04480 PRINT 
04500 INFUT 
04520 PRINT 
WANT TO "3% 
04540 PRINT 
04560 PRINT 
04580 PRINT 
04600 PRINT 
04620 RETURN 
05000 STOP 


PRINT 
PRINT 


7 
oe 
2 
of 
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oe 


$ MATH TUTOR/BARTOLI 


TAB(S)"4. WHEN THE COMPUTER ASKS YOU IF YOU waANT TO 


ea 
+ 


TAB(9)"TYFE NO IF YOU WANT © THRU 6 FOR MULTIPLICATIO 


"DIVISION" 
TAB(9) "AND O THRU 20 FOR ADDITION ANDI SUBTRACTION, " 
TAB(9) "TYPE YES IF YOU WANT TO CHOOSE YOUR OWN VALUES 


TAB(S)"AS YOU ARE GIVEN A FROBLEMs TYPE IN YOUR ANSWE 


TAB(S)"IF THE ANSWER IS CORRECT THE COMPUTER WILL RIN 
IT WILL GIVE ANOTHER C 


TAB(S) "IF THE ANSWER IS WRONG, 


“ANSWER IT CORRECTLY" 
TABR(S) “ANYTIME YOU WANT TO CHANGE PROBLEMS OR IF YOU 


“SEE YOUR SCORE," 
TAB(S) "TYPE ’Q’ (FOR QUIT) INSTEAD OF THE ANSWER." 


TAB(20) "XXKXX GOOD LEARNING *XXXxX" 
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PROGRAM NAME? TIMES TABLE/JONES 


00001 REM 7852 BYTES 

00010 REM *xk TIMES TABLE 5-8 xx 

00020 REM *xk BY JIM JONES WAIPJP/GMSBQA *x 

00030 CLEAR 

00040 FOR I=1 TO 15%PRINT $NEXT I 

00050 PRINT "WELCOME TO THE WORLD OF TIMES TABLES. THIS GAME WILL 


00060 PRINT "D0 THE FIVE THRU EIGHT TABLES."tPRINT SPRINT ? PRINT 
00070 LINE INFUT "WHAT IS YOUR NAME? "sNE3 PRIST SPRINT 

00080 PRINT TAR(10)"MY NAME IS R2-D2 - ~ HI "FNS PRINT 

00090 PRINT "WHICH TABLE WOULD YOU LIKE TO TRY? * 


00100 PRINT "0 = NONE" 
00110 PRINT °S FIVE TABLE" 
00120 PRINT °6 SIX TABLE" 


SEVEN TABLE* 
EIGHT TABLE" 


00130 FRINT "7 
00140 FRINT "8 
00150 INFUT A 
00155 FOR I=1 TO 15:PRINT sNEXT ISPAUSE 4000 
001460 IF A=O GOTO 4500 
00170 IF A=5 GOTO 530 
00180 IF A=6 GOTO 1430 

A=7 

8 


i i fi tt 


00190 IF A=7 GOTO 2330 
00200 IF A=8 GOTO 3230 
00210 FOR I=1 TO 153PRINT *NEXT IT 


00220 PRINT TAB(10)"S X 1 = S*#TAB(30)"S X 7 = 35" 
00230 PRINT TAB(10)"S X 2 = 10"#TAB(30)"S X 8 = 40° 
00240 PRINT TAB(10)"5S X 3 = 15*¢#TABC3O)"S X 9 = 45" 
00250 PRINT TAB(10)"S X 4 = tie heigl X 10 = 50" 
00260 PRINT TAB(10)"S X 5S = 25"sTAB(30)"S X 11 = 55" 
00270 PRINT TAB(10)"S X 6 = 30"FTAB(30)" 5 X 12 = 60" 
00280 PAUSE 3000:GOTO 4470 

00290 FOR I=1 TO 15%PRINT ¢NEXT I 

00300 PRINT TAR(10)"6 X 1 = 6"#TAB(30)"6 X 7 = 42" 
00310 PRINT TAB(10)"6 X 2 = 12"°¢TABC30)"S X 8 = 48° 
00320 PRINT TAB(10)"6 X 3 = 18"FTAB(30)"6 X 9 = S54" 
00330 PRINT TAB(10)"6 X 4 = 24"$TAB(30)"S X 10 = 60" 
00340 PRINT TAB(10)"6 X 5S = 3O"#TABC3O)"S X 11 = 66" 
00350 PRINT TAB(10)"S X 6 = 36"STAB(30)"S X 12 = 72" 
00360 PAUSE 3000:GOTO 4470 


a = phi 


FROGRAM NAMES 


00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
007350 


FOR IT=1 TO 153PRINT 


PRINT TABC10)"7 
PRINT TAR(10)"7 
PRINT TAB(10)°7 
PRINT TAB(10)°7 
PRINT TABC10)°7 
FRINT TABC10)"7 
FAUSE 3000:GO0TO 


FOR I=1 TO 153PR 


FRINT TAB(10)"8 
PRINT TABC10)°8 
FRINT TAB(C10)"8 
PRINT TABC10)°8 
PRINT TAB(10)°8 
FRINT TAB(10)"8 
PAUSE 3000:GO0TO 
PRINT ¢PRINT 


TIMES TABLE/ JONES 


$ 
bod 
oF 
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= 


470 
N 


MK OK OK OOK OKE BS OKEOKEOKEOKEOKOK 
BAS WK HNO OD Oe 


HH W OH OH +s 


4470 


"THIS IS 


FRINT TAB(C15) "ARE YOU 


CLEAR B 


- 


i 


"ey 


CONT‘’D > 


NEXT I 


7" 3 TABC30O)"7 X 
14" TAB(30)"7 
21" TABC30)"7 
28" TABC30)°7 
35"FTABC30)°7 
42" TAB(30)°7 


mK mK KO OK 


NEXT I 
8" TABC30)"B X 
16"5TABC30)"S X 
24"FTABC30)"8 X 
32° 9TAB(C30)"8 X 
40"5 TABC30)"8 X 
48" TABR(30)"S X 


YOUR 


REALLY? "sNS 


REM *k GENERATE GAME Xx 


FOR B=0 TO C 


C=(Btl)¢NEXT BiIF B=1 
IF B=1 THEN FRINT TAB 
IF B=2 THEN FRINT TAB 
IF B=3 THEN FRINT TAB 
IF B=4 THEN FRINT TAB 
IF B=S THEN FRINT TAB 
IF B=6é THEN FRINT TAB 
IF B=7 THEN PRINT TAB 
IF B=8 THEN FRINT TAB 
IF B=9 THEN PRINT TAB 
IF B= 

IF 

IF 

INPUT D1 


IF D1x5=5 GOTO 750 


GOSUB 4270 
GOTO S70 
GOSUB 4130 


3 GOTO 4410 

(25) "WHAT TIMES 
(25) "WHAT TIMES 
(25) "WHAT TIMES 
(25) "WHAT TIMES 
(25) "WHAT TIMES 
(25) "WHAT TIMES 
(25) "WHAT TIMES 
(25) "WHAT TIMES 
(25) "WHAT TIMES 


B=12 THEN PRINT TABC(25) "WHAT TIMES 


7 


7 


Ch oOCA CACAO CACAO CA OCA OA 


it fo GP oR HOR 


8 
9 
1 
1 
1 


10 THEN PRINT TAB(25)"WHAT TIMES 5S 
B=11 THEN FRINT TAB(25) "WHAT TIMES 3 


i] 


he > 


FIVE TABLE" ¢PRINT 


ii i 


SPRINT 


3"3GOTO 710 
20*°3GOTO 770 
10"3GOTO 830 
25"3GOTO 890 
1S":GOTO 950 
30"3GOTO 1010 
35"°3GOTO 1070 
45"°:GOTO 1130 
40"3GOTO 1190 
60"3GOTO 1250 
SO"3GOTO 1310 
39"3GOTO 1370 


PROGRAM NAME? TIMES TABLE/JONES = CONT‘’D > 


007460 GOTO 570 

00770 INPUT D2 

00780 IF D2kx5=20 GOTO 810 
00790 GOSUB 4270 

00800 GOTO 570 

00810 GOSUB 4130 

00820 GOTO 570 

00830 INPUT D3 

00840 IF 03x5=10 GOTO 870 
00850 GOSUB 4270 

00860 GOTO 370 

00870 GOSUB 4130 

00880 GOTO 570 

00890 INPUT D4 

00900 IF D4k5=25 GOTO 930 
00910 GOSUB 4270 

00920 GOTO 570 

00930 GOSUB 4130 

00940 GOTO 370 

00950 INPUT DS 

00960 IF DSk5=15 GOTO 990 
00970 GOSUB 4270 

00980 GOTO 570 

00990 GOSUB 4130 

01000 GOTO 570 

01010 INFUT D6 

01020 IF D6*5=30 GOTO 1050 
01030 GOSUB 4270 

01040 GOTO 570 

01050 GOSUB 4130 

01060 GOTO 570 

01070 INPUT D7 

01080 IF D7*x5=35 GOTO 1110 
01090 GOSUB 4270 

01100 GOTO 570 

01110 GOSUB 4130 

01120 GOTO 570 

01130 INPUT 08 

01140 IF D8k5=45 GOTO 1170 


2 ~ AS 


PROGRAM NAME; 


01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01340 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 


TIMES TABLE/JONES < CONT‘’D > 


GOSUB 4270 
GOTO 570 
GOSUB 4130 
GOTO 570 
INPUT D9 
IF 09%5=40 GOTO 1230 
GOSUB 4270 
GOTO 570 
GOSUB 4130 
GOTO 570 
INPUT El 


IF E1x5=460 GOTO 


GOSUB 4270 
GOTO 370 
GOSUB 4130 
GOTO 570 
INPUT E2 
IF E2x5=50 GOTO 1350 
GOSUB 4270 
GOTO 570 
GOSUB 4130 
GOTO 570 
INPUT E3 


IF E3x*S 


=55 


GOSUB 4270 
GOTO 370 
GOSUB 4130 


GOTO 


PRINT 
PRINT TABC(15)"ARE YOU READY “NSS PRINT 


CLEAR F 


370 
"THIS IS YOUR SIX TABLE" $PRINT 


1290 


GOTO 1410 


REM *k GENERATE GAME xx 


FOR F=0 TO G 


G=(F+t1)¢NEXT F3IF 


IF 
IF 
IF 
IF 
If 


F=1 
F=2 
F=3 
F=4 


F=§ 


THEN 
THEN 
THEN 
THEN 
THEN 


PRINT 
FRINT 
PRINT 
PRINT 
PRINT 


F=13 GOTO 4410 

TAB(25) "WHAT TIMES 6 
TAB(25) "WHAT TIMES 6 
TAB(25) "WHAT TIMES 6 
TAB(25) "WHAT TIMES 6 
TAB(25)"6& TIMES WHAT 


7 
ay 


emoE > 
sy “ 


sPRINT 


tPRINT 


HOW HOH OH 


18":GOTO 1610 
6*:GOTO 1670 

24":GOTO 1730 
12°:GOTO 1790 
30"3GOTO 1850 


FROGRAM NAME? TIMES TABLE/JONES < CONT‘D > 


01540 IF F=6 THEN PRINT TAB(25) "WHAT TIMES 6 
01550 IF F=7 THEN PRINT TABC25)"WHAT TIMES 4 
01560 IF F=8 THEN PRINT TAB(25)"6 TIMES WHAT 
01570 IF F=9 THEN PRINT TAB(25) "WHAT TIMES 6 
01580 IF F=10 THEN PRINT TAR(25)"6 TIMES WHAT 
01590 IF F=11 THEN PRINT TAB(25) "WHAT TIMES 6 
01600 IF F=12 THEN FRINT TABC25)"6 TIMES WHAT 
01610 INPUT H1 

01620 IF H1x6=18 GOTO 1650 

01630 GOSUR 4270 

01640 GOTO 1470 

01650 GOSUB 4130 

01460 GOTO 1470 

01670 INPUT H2 

014680 IF H2xé=46 GOTO 1710 

014690 GOSUB 4270 

01700 GOTO 1470 

01710 GOSUB 4130 

01720 GOTO 1470 

01730 INFUT H3 

01740 IF H3*6=24 GOTO 1770 

01750 GOSUB 4270 

01760 GOTO 1470 

01770 GOSUB 4130 

01780 GOTO 1470 

01790 INPUT H4 

01800 IF H4ké=12 GOTO 1830 

01810 GOSUB 4270 

01820 GOTO 1470 

01830 GOSUR 4130 

01840 GOTO 1470 

01850 INFUT HS 

01860 IF HSx6=30 GOTO 1890 

01870 GOSUB 4270 

01880 GOTO 1470 

01890 GOSUB 4130 

01900 GOTO 1470 

01910 INPUT Hd 

01920 IF H6*6=48 GOTO 1950 


48";GOTO 1910 
36":GOTO 1970 
42° :GOTO 2030 
60"3GOTO 2090 
Y4"3GOTO 2150 
66"iGOTO 2210 
72°3GO0TO 2270 


HoH HOH 
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FROGRAM NAME: 


01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02040 
02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02140 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
022460 
02270 
02280 
02290 
02300 
02310 


GOSUB 4270 
GOTO 1470 
GOSUR 4130 
GOTO 1470 
INFUT H?7 
IF H7*6=364 
GOSUBR 4270 
GOTO 1470 
GOSUBR 4130 
GOTO 1470 
INFUT H8 
IF H8*6=42 
GOSUB 4270 
GOTO 1470 
GOSUR 4130 
GOTO 14790 
INFUT H? 
IF H9X*46=460 
GOSUB 4270 
GOTO 1470 
GOSUB 4130 
GOTO 1470 
INPUT J1 
IF J1xk6=54 
GOSUBR 4270 
GOTO 1470 
GOSUB 4130 
GOTO 1470 
INFUT J2 
IF J2*6=66 
GOSUR 4270 
GOTO 1470 
GOSUBR 4130 
GOTO 1470 
INFUT JS 
IF J3*6=72 
GOSUB 4270 
GOTO 1470 
GOSUBR 4130 


GOTO 


GOTO 


GOTO 


GOTO 


GOTO 


GOTO 


TIMES TABLE/JONES 


2010 


2070 


2130 


2190 


2310 
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< CONT/D 


PROGRAM NAME: 


02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
024640 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02540 
02550 
02560 
02570 
02580 
02590 
02600 
02610 
02620 
02630 
02640 
02650 
02660 
02670 
02680 
02690 
02700 


GOTO 1470 
PRINT $PRINT 


PRINT tPRINT TAB(15)"ARE YOU READY “FNS 


CLEAR K 


TIMES TABLE/JONES < CONT‘’D > 


"THIS IS YOUR SEVEN TABLE“SPRINT PRINT 


REM X*xXGENERATE GAME Xx 


FOR K=O TOL 
L=(K+1) 3NEXT 


IF K=1 THEN 
IF K=2 THEN 
IF K=3 THEN 
IF K=4 THEN 
IF K=5 THEN 
IF K=6 THEN 
IF K=7 THEN 
IF K=8 THEN 
IF K=9 THEN 


IF K=10 THEN PRINT TAB(25)"7 TIMES WHAT 
IF K=11 THEN PRINT TAB(25) "WHAT TIMES 7 
IF K=12 THEN PRINT TAB(25) "WHAT TIMES 7 


INPUT M1 


Ki IF 
PRINT 
PRINT 
FRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


K=13 GOTO 4410 
TAB(25) "WHAT TIMES 7 
TAB(25) "WHAT TIMES 7 
TAB(25) "WHAT TIMES 7 
TAB(25)"7 TIMES 8 = 
TAB(25) "WHAT TIMES 7 
TAB(25)"WHAT TIMES 7 
TAB(25)"7 TIMES WHAT 
TAB(25) "WHAT TIMES 7 
TAB(25) "WHAT TIMES 7 


IF M1x7=14 GOTO 2550 


GOSUB 4270 
GOTO 2360 
GOSUB 4130 
GOTO 23640 
INPUT M2 


IF M2k7=7 GOTO 2610 


GOSUB 4270 
GOTO 2340 
GOSUB 4130 
GOTO 2360 
INFUT M3 


IF M3x7=21 GOTO 2670 


GOSUB 4270 
GOTO 2360 
GOSUB 4130 
GOTO 2360 
INPUT M4 


IF M4=56 GOTO 2730 


hh 
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14*°:GOTO 2510 
7*°3:GOTO 2570 
21°:GOTO 2630 
GOTO 2490 
28°3GOTO 2750 
35"°3GOTO 2810 
49*°3GOTO 2870 
42"3GOTO 2930 
70"3GOTO 2990 
63"°3:GOTO 3050 
77*3GOTO 3110 
84"°3GOTO 3170 


PROGRAM NAME? TIMES TABLE/JONES < CONT‘’D > 


02710 GOSUB 4270 

02720 GOTO 2360 

02730 GOSUB 4130 

02740 GOTO 2360 

02750 INPUT MS 

02760 IF MSk7=28 GOTO 2790 
02770 GOSUB 4270 

02780 GOTO 2360 

02790 GOSUB 4130 

02800 GOTO 23460 

02810 INFUT M6 

02820 IF M6*7=35 GOTO 2850 
02830 GOSUB 4270 

02840 GOTO 2360 

02850 GOSUB 4130 

02860 GOTO 23460 

02870 INPUT M7 

02880 IF M7*7=49 GOTO 2910 
02890 GOSUB 4270 

02900 GOTO 23640 

02910 GOSUB 4130 

02920 GOTO 2340 

02930 INFUT M8 

02940 IF M8%*7=42 GOTO 2970 
02950 GOSUB 4270 

02960 GOTO 2360 

02970 GOSUB 4130 

02980 GOTO 2360 

02990 INPUT M9 

03000 IF M9X7=70 GOTO 3030 
03010 GOSUB 4270 

03020 GOTO 2360 

03030 GOSUB 4130 

03040 GOTO 2360 

03050 INPUT Ni 

03060 IF N1X7=43 GOTO 3090 
03070 GOSUB 4270 

03080 GOTO 2360 

03090 GOSUB 4130 
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PROGRAM NAME? TIMES TABLE/JONES < CONT’D > 


03100 GOTO 2340 

03110 INFUT N2 

03120 IF N2k7=77 GOTO 3150 

03130 GOSUB 4270 

03140 GOTO 2360 

03150 GOSUB 4130 

031460 GOTO 2360 

03170 INPUT N3 

03180 IF N3x7=84 GOTO 3210 

03190 GOSUB 4270 

03200 GOTO 2360 

03210 GOSUB 4130 

03220 GOTO 2360 

03230 FRINT {PRINT "THIS IS YOUR EIGHT TABLE"SPRINT ¢PRINT 
03240 PRINT tPRINT TAR(15) "ARE YOU READY "#N% 
03250 CLEAR 0 

03260 REM *k GENERATE GAME *x 

03270 FOR O=0 TO F 

03280 P=(O41)%NEXT O2IF O=13 GOTO 4410 


03290 IF O=1 THEN PRINT TAB(25)"WHAT TIMES 8 = 8*°:GOTO 3410 

03300 IF O=2 THEN FRINT TAB(25)"*WHAT TIMES 8 = 24":GOTO 3470 
03310 IF O=3 THEN PRINT TAB(25)*WHAT TIMES 8 = 40°:GOTO 3530 
03320 IF 0=4 THEN FRINT TAB(25)"S TIMES WHAT = 16"3GOTO 3590 
03330 IF O=5 THEN PRINT TAB(25)"8 TIMES WHAT = 32°:3GOTO 3650 
03340 IF O=6 THEN FRINT TAB(25)"WHAT TIMES 8 = 64":3GOTO 3710 
03350 IF 0=7 THEN FRINT TAB(25)"WHAT TIMES 8 = 48":GOTO 3770 
03360 IF O0=8 THEN PRINT TAB(25)"°WHAT TIMES 8 = 80":GOTO 3830 
03370 IF O=9 THEN PRINT TAB(25)"S TIMES WHAT = S6":GOTO 3890 


03380 IF O=10 THEN PRINT TAB(25)"WHAT TIMES 8 
03390 IF O=11 THEN FRINT TAB(25)"WHAT TIMES 8 
03400 IF 0=12 THEN PRINT TAB(25)"8 TIMES WHAT 
03410 INPUT Q1 

03420 IF Q1x*8=8 GOTO 3450 

03430 GOSUB 4270 

03440 GOTO 3240 

03450 GOSUB 4130 

034460 GOTO 32640 

03470 INPUT Q2 

03480 IF Q2*8=24 GOTO 3510 


88°:GOTO 3950 
94*3GOTO 4010 
72"°3GOTO 4070 


ioe if 


ae 


PROGRAM NAME? TIMES TABLE/JONES < CONT‘’D > 


03490 GOSUB 4270 

03500 GOTO 3260 

03510 GOSUB 4130 

03520 GOTO 32640 

03530 INPUT Q3 

03540 IF Q3x8=40 GOTO 3570 
03550 GOSUBR 4270 

03560 GOTO 3260 

03570 GOSUB 4130 

03580 GOTO 3260 

03590 INPUT Q4 

03600 IF Q4x8=16 GOTO 3630 
03610 GOSUB 4270 

03620 GOTO 3260 

03630 GOSUB 4130 

03640 GOTO 3260 

03650 INPUT QS 

03660 IF Q5x8=32 GOTO 3690 
03670 GOSUB 4270 

03680 GOTO 3260 

03690 GOSUB 4130 

03700 GOTO 3260 

03710 INFUT Q6 

03720 IF Q6x8=64 GOTO 3750 
03730 GOSUB 4270 

03740 GOTO 3260 

03750 GOSUB 4130 

03760 GOTO 3260 

03770 INFUT Q7 

03780 IF Q7x8=48 GOTO 3810 
03790 GOSUB 4270 

03800 GOTO 3260 

03810 GOSUB 4130 

03820 GOTO 3260 

03830 INFUT Q8 

03840 IF Q8x8=80 GOTO 3870 
03850 GOSUB 4270 

03860 GOTO 3240 

03870 GOSUBR 4130 


PROGRAM NAME? TIMES TABLE/JONES < CONT‘’D > 


03880 GOTO 3260 

03890 INPUT Q9 

03900 IF Q9x8=56 GOTO 3930 
03910 GOSUB 4270 

03920 GOTO 32640 

03930 GOSUB 4130 

03940 GOTO 3260 

03950 INPUT R1 

03960 IF R1ix8=88 GOTO 3990 
03970 GOSUB 4270 

03980 GOTO 3260 

03990 GOSUB 4130 

04000 GOTO 3240 

04010 INPUT R2 

04020 IF R2x8=96 GOTO 4050 
04030 GOSUB 4270 

04040 GOTO 3260 

04050 GOSUB 4130 

04060 GOTO 3260 

04070 INPUT R3 

04080 IF R3x8=72 GOTO 4110 
04090 GOSUB 4270 

04100 GOTO 32640 

04110 GOSUB 4130 

04120 GOTO 3260 

04130 FOR S=0 TO T 

04140 T=(St1) NEXT S 

04150 IF S=1 THEN PRINT "NOT BAD BIRDBRAIN" $ RETURN 


04160 IF S=2 THEN FRINT "KEEF IT UPs ALMOST A BRAIN YOU HAVE*?RET 
URN 

04170 IF S=3 THEN PRINT "WELL, WELL» YOU SURPRISE ME" RETURN 
04180 IF S=4 THEN PRINT “HURRAY! ! ANOTHER RIGHT ANSWER" {RETURN 
04190 IF S=S THEN PRINT "YOU ARE GETTING GOOD, AREN’T YOU" ?RETURN 
04200 IF S=6 THEN PRINT “SURPRISEy SURPRISE - RIGHT YOU ARE*?RETU 
RN 

04210 IF S=7 THEN PRINT “HEY HEYr GOOD SHOW"? RETURN 

04220 IF S=8 THEN PRINT "Bt ON THAT ONE'S RETURN 

04230 IF S=9 THEN PRINT "I DON’T BELEIVE IT."RETURN 


S HotU ot GS < 


PROGRAM NAME? TIMES TABLE/JONES < CONT‘’D > 


04240 IF S=10 THEN FRINT 
04250 IF S=11 THEN PRINT 
04260 IF S=12 THEN PRINT 


04270 FOR U=0 TO V 
04280 V=(Ut1) ¢NEXT 


04290 IF U=1 THEN 
04300 IF U=2 THEN 
04310 IF U=3 THEN 
04320 IF U=4 THEN 
04330 IF U=5 THEN 
RN 

04340 IF U=6 THEN 
04350 IF U=7 THEN 
04360 IF U=8 THEN 
04370 IF U=9 THEN 
N 


04380 IF U=10 THEN PRINT 


04390 IF U=11 THEN PRINT 
04400 IF U=12 THEN PRINT 


N" RETURN 


U 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT 
FRINT 


PRINT 
PRINT 


"GOOD SHOW, GENIUS MATERIAL ® RETURN 
"SMART LITTLE BUGGER" {RETURN 
"*KK MAGIC kK" }RETURN 


*DUMMYs THATS NOT RIGHT" RETURN 

"TRY AGAIN BIRDBRAIN® {RETURN 

"ARE YOU FOR REAL —- TRY AGAIN" S RETURN 
"WRONG AGAIN TWIT" SRETURN 

"ARE YOU SURE YOU HAVE A BRAIN? "sN$3RETU 


"GAD ZOOKS - ANOTHER WRONG ANSWER" ? RETURN 
"DUMB ~- DUMB ~ DUMB" {RETURN 

"TRY TO FIND YOUR BRAIN TWIT"? RETURN 

"OH NO ~ PLEASE ~ I CAN’T STAND IT"? RETUR 
"HELP - HELP ~ CALL THE DOCTOR: WRONG"?R 


"GROAN: MY MEMORY CAN‘T TAKE IT*? RETURN 
"OUT OF ORDER, COMPLETE NERVOUS BREAKDOW 


04410 FOR I=1 TO 15%PRINT ¢NEXT I 
SCORE IS "sSs" THE COMPUTERS SCORE IS "sUSPAUSE 


04420 PRINT "YOUR 
4000 

04430 IF A=5 GOTO 

04440 IF A=6 GOTO 

04450 IF A=7 GOTO 

04460 IF A=8 GOTO 

04470 PRINT {PRINT 
TABLE * 


210 
290 
370 
450 


"WOULD YOU LIKE TO HAVE A TRY AT ANOTHER TIMES 


04480 LINE INPUT “IF YES THEN TYPE ‘’Y’ ? "3Y¢ 


04490 IF Y$="Y" GO 


TO 30 


04500 PRINT "HOPE YOU LEARNED YOUR TIMES TABLE» SEE YOU NEXT TIME 


04510 PRINT $PRINT TABC1I5) "GOODBYE FOR NOWs sss e reve seereeoeevrees 


*¢ 


04520 FOR I=1 TO 83PRINT 


04530 END 


*NEXT ISPAUSE 2000 


hh 
I 
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PROGRAM NAME? MATH FACTS/PFEIFER. JR 


00001 REM 3629 BYTES 

00010 REM xxx DRILL PRACTICE IN BASIC MATH FACTS 

00015 REM **kxk BY FRANK J. PFEIFER: JR. 

00020 REM *k*k FOR THE GREAT KIDS OF 308 IN CICERO SCHOOL 
00030 PRINT 

00035 E=0:G=0iW=03Z1=03Z2=0 

00040 LINE INFUT "HI THERE.+-I’M CYBERNUT! ARE YOU A BOY OR GIRL 
P "SAS 

00050 IF At="BOY" THEN 100 

00060 IF At="GIRL" THEN 200 

00070 LINE INPUT "HEY...YOU HAVE TO BE EITHER A BOY OR GIRL! WHI 
CHP "sAS 

00080 GOTO 50 

00100 LET M=INT(SXRNDC1))>4+1 

00110 ON M GOTO 1207130%140%1507160717071807190 

00120 LET M$="YOU’RE A REAL GENTLEMAN! *:GOTO 300 

00130 LET M$="O.K. YOUNG MAN! "GOTO 300 

00140 LET M$="YES SIR!":GOTO 300 

00150 LET M$="0.K. BUSTER! "GOTO 300 

00160 LET M$="FINE»s YOU LITTLE STINKER!":GOTO 300 

00170 LET M$="ALL RIGHTs HANDSOME! ":GOTO 300 

00180 LET M$="0.K. PAL!":GOTO 300 

00190 LET M$="I BET THE GIRLS ARE CRAZY ABOUT YOU! "GOTO 300 
00200 LET F=INT(S&RNDIC1) > +1 

00210 ON F GOTO 22072307240» 250226022707 28017290 

00220 LET F$="0.K. SUGAR! "3GOTO 305 

00230 LET F$="0.K. SWEETIE! "GOTO 305 

00240 LET F$="I COULD KISS YOUs DOLL! ":GOTO 305 

00250 LET F$="ALL RIGHT, SUGAR BABE! "GOTO 305 

00260 LET F%="YOU’RE A REAL CUTIE!"$GOTO 305 

00270 LET F%="YOU’RE A SWEETHEART! "GOTO 305 

00280 LET F$="O.K. BEAUTIFUL! "?GOTO 305 

00290 LET F$="I BET YOU DRIVE THE BOYS WILD!*:GOTO 305 

00300 LET S¢=M$3GOTO 310 

00305 LET S$=F% 

00310 PRINT S$$" NOW, WHAT’S YOUR NAME*#$LINE INPUT "? "3NS 
00315 PRINT 

00320 PRINT "VERY GOOD, "NSS". WE ARE GOING TO DO A LITTLE PRAC 
TICE IN" 

00330 PRINT "ARITHMETIC. THAT GREAT TEACHER OF YOURS GAVE ME AL 
IST OF" 
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PROGRAM NAME? MATH FACTS/PFEIFER. JR 


00340 PRINT "SOME MATH PROBLEMS TO WORK WITH YOU. I’LL TRY NOT T 
0 BE TOO" 

00350 PRINT “HARD ON YOU EITHER...I PROMISE!" 

00355 PRINT 

00360 PRINT "DO YOU WANT (1) ADDITION» (2) SUBTRACTIONy (3) MULTI 
PLICATION®» * 

00365 PRINT “OR (4) DIVISION?..."3 

00370 INPUT "ANSWER (ly 2» 3 OR 4)..++WHICH ONE? "$T 

00375 IF T<1 OR T>4 OR T<>INT(T) THEN 370 

00380 PRINT 

00385 PRINT "FINEy "#N#9"..eHERE WE GO!" 

00390 PRINT SPRINT » 

00395 GOTO 400 

00400 FOR X=10 TO SO STEP 10 

00410 IF GtE=X THEN 1100 

00420 NEXT X 

00500 IF W=3 THEN 600 

00505 ON T GOTO 510*53025509570 

00510 IF R<>A1+A2 THEN 700 

00520 GOTO 600 

00530 IF R«>S1-S2 THEN 700 

00540 GOTO 400 

00550 IF R<>M1xM2 THEN 700 

00560 GOTO 600 

00570 IF R<>01/D2 THEN 700 

00600 W=O030N T GOTO 610%620%6307640 

00610 AL1=INTCL11¥RNDC1)) SA2=INTCLLKRNDC1))2GOTO 700 

00620 S1=INTC21*RNDC1))3S2=INTCLIXRNDC1))3IF S$1-S2<0 THEN 620 
00625 GOTO 700 

00630 MI=INTCI3KRNDC1)) SM2=INTCL3KRNDC1))$GOTO 700 

00640 DI=INTCL45SXRNDC 1) 202=INTCL2*RNDC1)) +4 

00650 IF D1/D2<>INT(D1/02) OR D1/02212 THEN 640 

00700 ON T GOTO 7109720730740 

00710 PRINT Als "+"#A2Z3"= "$3GOTO 750 

00720 PRINT S1s"-"#S25"= "s3GOTO 750 

00730 FRINT M1¢"X"sM2e"= "$3GOTO 750 
00740 PRINT Dis"/"s02¢"= "5 
00750 INPUT "? "SR 

00800 ON T GOTO 810*830+850%870 


PROGRAM NAME: 


00810 
00820 
00830 
00840 
00850 
00860 
00870 
00900 
00905 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
00995 
01000 


01005 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 


, 

01110 
01120 
01130 
01140 
01150 
01160 


oO 
we 
a 
83] 
sf 
“sy 
oO 


Pe oF Se 


IF R=A1+A2 THEN 1000 
GOTO 700 

IF R=S$1-S2 THEN 1000 
GOTO 3700 

IF R=M1ixXM2 THEN 1000 
GOTO 900 

IF R=D1/02 THEN 1000 
LET E1=INTC8XRNDC1) +1 


ON El 
PRINT 
PRINT 
PRINT 
FRINT 
PRINT 
PRINT 
PRINT 
PRINT 


GOTO 9107920293079 4099 
"HOLD IT!s.ee0+"#3GOTO 
"EASY NOW. .+++"33GOTO 
"OOPS! eeeeeeee "F2G0TO 
"OUCH! .eeeeeee "8 8GOTO 
"NOW THINK! .++"? 

"YOU GOOFED..."#3GOTO 
"WATCH IT!eeee"F3 
"HEY THERE! +++" 


Toe Wet A Fe R SX E > 


MATH FACTS/PFEIFER-.JR <= CONT‘D > 


50 296029702980 
990 
990 
990 
990 
990 
990 
990 


E=E+12W=WtitIF W=3 THEN FRINT " TRY ANOTHER... "#?GOTO 400 


FRINT 


" TRY AGAINe +++ "#3G0 


TO 400 


LET G1i=INT(8*RND(1))413FOR B=1 TO 33PRINT CHR$(7)%3NEXT BiW 


ON Gil 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


G=G+1; 


PRINT 


GOTO 1010%102071030710407105071060%1070%1080 


"YOU GOT IT..."»iGOTO 
"KEEP IT UF..-"»?GOTO 
"CORRECT. oe ee . , GOTO 
"GOOD WORK...+"*iGOTO 
"FINE ANSWER.."» GOTO 
"EXCELLENT++++"»GOTO 
"RIGHT ONee oes "x 3GOTO 
"GREAT JOBs.+++"» 

GOTO 400 

{PRINT ¢PRINT "* YOUR 


IF Ex>1 THEN PRINT “ERRORS X 


PRINT 


"ERROR X* 


IF GtE=50 THEN 1300 


FRINT 


" "3N$e"» DO YOU WISH 


LINE INFUT "? "sQ% 


PRINT 


1090 
1090 
1090 
1090 
1090 
1090 
1090 


SCORE IS NOW"#Gs "CORRECT AND"sE 


";GOTO 1130 


TO CONTINUE"? 


oo 
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PROGRAM NAME? MATH FACTS/PFEIFER.JR =< CONT‘D > 


01170 IF LEFT$(Q¢»1)="Y" THEN 1200 

01180 IF LEFT$(Q¢*1)="N" THEN Z1=Z14+G3Z2=Z2+EiGOTO 1400 
01190 FRINT " PLEASE ANSWER YES OR NO! "GOTO 1140 

01200 ON T GOTO 1210%1230%1250%1270 

01210 IF R=A1+A2 THEN PRINT »iGOTO 600 

01220 GOTO 1280 

01230 IF R=S1-S2 THEN PRINT »iGOTO 600 

01240 GOTO 1280 

01250 IF R=M1xM2 THEN PRINT »iGOTO 600 

01260 GOTO 1280 

01270 IF R=D1/D2 THEN PRINT »iGOTO 600 

01280 IF W=3 THEN FRINT »iGOTO 600 

01285 PRINT "I BET YOU THOUGHT I FORGOT"?PRINT "THIS ONE.++ee"? 
01290 GOTO 700 

01300 PRINT 

01310 PRINT N$#"» YOU HAVE FINISHED SO PROBLEMS. "$Z1=Z1i+G!Z2=Z2+E 
01320 PRINT "NUMBER OF FROBLEMS CORRECT IS"3 

01330 PRINT INT(GK1O0/(GHE))3"X" SPRINT 

01340 LINE INPUT "WOULD YOU LIKE SOME MORE FRACTICE? "3F% 
01350 IF LEFT#(P$r1)="Y" THEN G=O%E=O03GOTO 355 

01360 IF LEFTS(P%s1)="N" THEN PRINT :GOTO 1400 

01370 PRINT {PRINT "PLEASE ANSWER YES OR NO! "GOTO 1340 
01400 PRINT “YOUR TOTAL NUMBER OF PROBLEMS CORRECT IS"3 
01410 PRINT INT(Z1%100/(Z14+Z2))5"%" 

01420 PRINT 

01430 PRINT "IT’S BEEN GREAT FUN FLAYING WITH YOUr "3NS3"," 
01440 PRINT "I HOPE THE MATH PRACTICE WAS HELPFUL TO YoU." 
01450 PRINT 

01460 PRINT “YOU’RE A FINE YOUNG "SA$#"...+HAVE A NICE DAY!" 
01500 END 
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FROGRAM NAME? MATH/REECE 


00001 
00002 
00003 
00004 
00005 


REM 
REM 
REM 
REM 
REM 


(P-82) 


00006 
00010 
00020 
00030 
00040 
00045 
00046 
00047 
00050 
00060 


00080 
00085 
00090 
00099 
00100 
00105 
00110 
00111 
00113 
00114 
oo11S 
00120 
00130 
00140 
00149 
00150 
00200 
00210 
00220 
00225 
00230 
00235 


REM 


COMPUTER AIDED INSTRUCTION IN ARRITHMETIC 

USES VERTICAL AND HORIZONTAL FROBLEMS 

GOOD FOR MATH DRILL FOR CHILDREN 

C REECE - H8 EXT BH BASIC 1/778 

ADAPTED FROM VERSION IN CREATIVE COMPUTING» MAY-JUNE 77 


HUG 


CNTRL 491 

CNTRL 2r2 

LINE INFUT “HI. WHAT’S YOUR NAME?" FAS 

PRINT 

FRINT A$"» ENTER A NUMBER BETWEEN 1 AND 100.7% 

INFUT N 

IT=RND(-N) 

PRINT 

FRINT "OKy "AS"»s WE’RE GOING TO DO SOME ARITHMETIC PROBLEMS 


E=0 
Y=0 
FOR 
REM 


P=1 TO MAX(S*N/10%2) 
NUMBERS IN PROBLEMS VARY BETWEEN 1 AND N 


A=INTCNXRNDI(C1)4+1) 

R=INTCNXRNDC1)41) 

IF A>B THEN 114 

D=B? B=AtA=D 

REM DETERMINE THE WIDTH OF THE NUMBER 


S=3- 


INT(LOG(A)/2.302585+1 > 


T=2-INT(LOG(B)/2.302585+1) 


Q=F 


IF P10 THEN 150 


Q=P- 


REM 


2 
ALTERNATE BETWEEN THE 9 FROBLEM TYPES 


ON Q GOTO 20022502300%3501% 40074502500 75507600 
R=A+B 

PRINT TAB(S)3A 

FRINT TABCT)"+°B 


PRINT 


INFUT G 
GOSUB 700 


FROGRAM NAME? MATH/REECE =< CONT‘’D > 


00240 
00245 
00250 
00260 
00270 
00280 
00290 
00295 
00300 
00310 
00320 
00325 
00330 
00332 
00335 
00340 
00345 
00350 
00360 
00370 
00380 
00390 
00395 
00400 
00401 
00402 
00410 
00415 
00420 
00425 
00430 
00435 
00440 
00445 
00450 
00460 
00470 
00480 
00490 


IF E>0 THEN 210 
GOTO 680 

R=A~B 

PRINT AS" ~ "SBR" = "5 
INPUT G 

GOSUB 700 

IF E=0 THEN 260 

GOTO 480 

R=A~B 

PRINT TAB(T)" "B 


PRINT 
FRINT 
PRINT 
INFUT 
GOSUB 


a4 
TABCS) Ar » 
G 

700 


IF E>0O THEN 310 

GOTO 680 

R=A-B 

FRINT As" — = "9Ryy 
INPUT G 

GOSUB 700 

IF E>0 THEN 360 

GOTO 680 

C=INT(NXRNDDC1)41) 
U=3-INT(LOG(C)/2,.302585+1) 
R=A+B+C 


PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
GOSUE 


TAB(CS) $A 
TABCUD SC 
TARCT) #"+"FB 


700 


IF E>0 THEN 410 

GOTO 4680 

R=A+tK 

PRINT As" + "sRe" = "5% 
INPUT G 

GOSUB 700 

IF E>0 THEN 460 
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FROGRAM NAME? MATH/REECE < CONT‘’D > 


00495 
00500 
00510 
00520 
00525 
00530 
00535 
00540 
00545 
00550 
00560 
00570 
00580 
00590 
0059S 
00600 
00610 
00615 
00620 
00625 
00630 
00635 
00640 
00645 
00680 
00690 
00700 
00701 
00705 
00710 
00720 
00725 
00730 
00750 
00751 
00752 
00755 
00760 
00765 


GOTO 680 

R=A~B 

PRINT TAB(S) 5A 
FRINT TAB(T)"~-"B 


GOSUB 700 

IF E>0 THEN 510 

GOTO 680 

R=A-B 

FRINT Be" + = "SAvy 
INPUT G 

GOSUB 700 

IF E>0 THEN 540 

GOTO 680 

R=A~-B 

PRINT TAB(S) 9A 

PRINT *=* 

ren, Smee . 

FRINT TAB(T)" “Bory 

INFUT G 

GOSUB 700 

IF E>0 THEN 610 

GOTO 480 

NEXT F 

GOTO 900 

IF G=R THEN 750 
Wi=W1itiiREM COUN ALL WRONG ANSWERS. 
E=E+1 

IF E>2 THEN 800 

PRINT "WRONG. TRY AGAIN! * 
PRINT 

RETURN 

Y=Yt1 

Ci=CititREM COUNT CORRECT ANSWERS 
E=0 

ON Y GOTO 760%770%780%790 
PRINT “VERY GOOD "+A$ 
GOTO 725 


eA 


o< K >< 


we 


E > 


"ee 


FROGRAM NAME? MATH/REECE < CONT‘’D > 


FRINT "SUPER! !" 

GOTO 725 

PRINT "THAT’S RIGHT "sA% 

GOTO 725 

FRINT "CORRECT !" 

Y=0 

GOTO 725 

PRINT “YOU MISSED THAT ONE 3 TIMES "As". " 

PRINT “THE CORRECT ANSWER IS"Rs".*" 

PRINT "HERE’S ANOTHER PROBLEM. " 

E=0 

GOTO 725 

PRINT 

FRINT "THAT WAS LOTS OF FUN "A"." 

FRINT "DO YOU WANT ANY MORE PROBLEMS TODAY CYES OR NO) "$ 
LINE INFUT #B% 

IF B¢="YES" THEN 85 

IF B¢="NO" THEN 960 

PRINT "PLEASE ANSWER YES OR NO “Ags"." 

GOTO 920 

PRINT 

T1i=W1itC1iREM TOTAL PROBLEMS (INCLUDING DUPLICATES) 
G1=INT(C1/T1*100) 

FRINT "YOU GOT "Ci" CORRECT OUT OF ‘Ti 

PRINT "YOUR GRADE IS "Gi"% » "A$ 

G$="EXCELLENT!" 

IF Gi=90 THEN G$="VERY GOOD," 

IF G1<=80 THEN G¢="GOOD,." 

IF G1<70 THEN G$="NOT TOO GOOD, YOU NEED LOTS MORE PRACTICE 


FRINT A$" THAT’S "GS 


PRINT "OK "A¢"» GOODBYE FOR NOW AND THANKS. +e+eee" 
END 


2- 30 


FROGRAM NAME? MATH QUIZ/FALE 


DIM N$(2)9Z$(1) 
FOR L=0 TO 83FPRINT ¢NEXT L 
PRINT TAB(18) "THIS PROGRAM WILL TEST YOUR MATH SKILL" ¢FRI 


FRINT "TYFE IN YOUR FIRST NAME PLEASE" 
LINE INFUT N#(2) 
PRINT N#(2) "» DO YOU WANT TO ADD, SUBTRACTs MULTIPLY» OR DD 


IVIDE?*® 


00045 
000350 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
pe 


00130 
00135 
00140 
00145 
00150 
00155 
00160 
00165 
00170 
0017S 
00180 
00190 
IN" 

00200 
00210 
00220 
00240 
00250 
002460 
00270 
00280 


IT=O3N1=03N2=0 

LINE INFUT N#¢(1) 

IF LEFT#(N$(1)91)="A" THEN X=240;GOTO 120 

IF LEFT#(N$(1)21)="S" THEN X=4103GOTO 120 

IF LEFT#(N$(1)291)="M" THEN X=610:GOTO 120 

IF LEFT#(N$(1)91)="0" THEN X=810:GOTO 120 

PRINT “INVALIC“. INFUTs TRY AGAIN" 

GOTO 40 

FRINT "WHAT IS THE LARGEST NUMBER YOU WANT TO TRY * N#C(2) * 


PRINT 107 100% 1000» 10000 

INFUT ft 

IF D=10GOTO 170 

IF D=100GOTO 170 

IF fT=1000GOTO 170 

IF f=10000GOTO 170 

FRINT "INVALIO: INFUTy TRY AGAIN " N$C(2) 

GOTO 120 

PRINT “HOW MANY PROBLEMS DO YOU WANT " N#(2) " ?* 
INFUT N 

IF N21GOTO X 

FRINT "YOU MUST TRY MORE THAN ONE FROBLEM “ N$(2) " TRY AGA 


GOTO 170 

FOR L=0 TO 83F RINT $NEXT L 
REM ADDITION SECTION 

GOSUBR 1100 

GOSUBR 1000 

ZEX+Y 

N2=N2+1 

FRINT " "XxX 


PROGRAM NAME? MATH QUIZ/FALE < CONT’D > 


00290 
00300 
00310 
00320 
00330 
00340 
00350 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00600 
00610 
00620 
00630 
00640 
00650 
00640 
00670 
00680 
00690 
00700 
00710 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 


PRINT “ $* % 

PRINT  scsnccenanme 7 

GOSUB 1300 

REM EL=NEXT FROBLEM,s E2= TRY AGAIN 
E1=250 

E2=270 

GOSUR 2500 

REM SUBTRACTION SECTION FOLLOWS 
GOSUB 1100 

GOSUR 1000 

Z=X~-Y 

N2=N2¢1 

FRINT * "X 

PRINT " =-* ¥ 

PRING 7 ccecceeces . 

GOSUB 1300 

E1=420 

E2=440 

GOSUB 2500 

REM MULTIFLICATION SECTION FOLLOWS 
GOSUB 1100 

GOSUB 1000 

ZEXKY 

N2=N241 

FRINT " "x 

PRINT " X" ¥Y 

PERT  enenucnndios . 

GOSUB 1300 

E1=620 

E2=640 

GOSUB 2500 

REM OILVISION SECTION FOLLOWS 
GOSUB 1100 

GOSUR 1000 

Q=XXKY 

N2=N241 

PRINT © saipscsmcns . 

FRINT X "!" Q 

PRINT "=" 
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PROGRAM NAMES MATH QUIZ/FALE < CONT‘D = 


00880 Z=Y 

00890 GOSUB 1300 

00900 E1=820 

00910 E2=840 

00920 GOSUB 2500 

01000 IF Ni=N THEN GOSUB 5000 

01010 N1=Nitl 

01020 GOSUR 2000 

01030 RETURN 

01100 C=0 

01110 FOR L=0OTO 60% FRINT "~"#% NEXT L¢PRINT 
01120 RETURN 

01125 REM EXPLINATION OF COUNTERS AND VARIABLES 
01130 REM Ni= # PROBLEMS COUNTER 

01140 REM N2= # TRIES COUNTER 

01150 REM Z= ACTUAL ANSWER 

01160 REM Zi= OPERATERS ANSWER 

01170 REM I= CORRECT ANSWER COUNTER 
01180 REM N=#PROBLEMS ASKED FOR 

01190 REM D=LARGEST # YOU WANT 

01300 REM VALID INFUT TEST SUE 

01305 LINE INFUT Z$¢(1) 

01310 FOR A=1TO LEN(Z$(1)) 

01320 S#=MIDS(Z$(1) Axl) 

01330 IF S#<"0" GOTO 1360 

01335 IF S$>"9" GOTO 1360 

01340 NEXT A 

01350 RETURN 

01360 FRINT "INVALID. INFUTs TRY AGAIN" 
01370 GOTO 1300 

02000 REM THIS SUB GENERATES DIGITS Xr Y OF A RANDOM NATURE 
02010 IF Cx>0 GOTO 2040 

02020 Di=D 

02030 C=C+1 

02040 X=INT(DIXRNDC1) > 

02041 IF X=0 GOTO 2040 

02050 Y=INTCDLIXRNDC1)) 

02051 IF Y=0 GOTO 2050 

02060 IF Y«x GOTO 2100 


PROGRAM NAME: MATH QUIZ/FALE < CONT’D > 


02070 A 
02080 Y 
02090 X 
02100 R 
02101 IF Die>10 GOTO 2140 

02110 IF D=10 GOTO 2150 

02120 Di=0 

02130 GOTO 2150 

02140 [11=011/10 

02150 RETURN 

02500 REM CORRECT OR INCORRECT MESSAGE SUB 

02510 FRINT 

02520 IF Z<VAL(Z$(1)) GOTO 2580 

02530 IF Z=VAL(Z$(1)) GOTO 2600 

02540 I=I+1 

O2550 W1=0 

02560 FRINT TAB(30) "CORRECT " N¢(2) 

02570 GOTO E1 

02580 FRINT "TOO HIGH " N#(2) "! TRY AGAIN" 

02590 GOTO 2610 

02600 PRINT "TOO LOW * N#(2) "! TRY AGAIN" 

02610 Wi=Witl 

02620 IF Wi=3 GOTO 2640 

02630 GOTO E2 

02640 PRINT 

02645 W1=0 

02650 FRINT “THREE STRIKES» YOU’RE OUT. THE CORRECT ANSWER IS * 
Zz 

02660 GOTO El 

05000 REM THIS SECTION CALCULATES WRONGS» RIGHTS: %» DONE? 
05010 REM I=RIGHTy W=WRONG: F=% RIGHT 

05020 W=N2-T 

035030 R=N2—-W 

05040 FP=INT(C1OOXR/N2) 

O5050 FRINT 

05060 FRINT “PROBLEMS =" Ni 

05070 FRINT "TRIES =" N2 

05080 PRINT "CORRECT RESFONSES =" I 

05090 FRINT "SCORE =" FP "%" 


Min OR 
zs DK < 
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FROGRAM NAME? MATH QUIZ/FALE < CONT’D > 


05100 PRINT "DO YOU WANT TO TRY ANY MORE 
O5110 LINE INFUT N#(1) 

05120 IF LEFTS(N$(1)71)="Y" GOTO 40 
05130 END 


" N$(2) 


oe 


PROGRAM NAME? ARITHMETIC PRACTICE/HOYLE 


00003 PRINT "IN ANY PROGRAM YOU RUN BE SURE TO PUSH RETURN AFTER 
GIVING" 
00006 PRINT "THE COMPUTER THE INFORMATION IT ASKS FOR. * 


00008 
00010 
00015 
00020 
00021 
00022 
00023 
00025 
00030 
INTS"*" 
00040 
AND" 

00050 
COND" 
00060 
00070 
THE" 

00080 
00090 
00100 
00110 
00120 
00130 
00133 
00136 
00140 
00144 
00150 
00160 
00170 
00172 
00180 
00190 
00200 
00220 
00230 


FAUSE 5000 

DIM S(5%10)9T(S) ¥AC10) ¥B(10) $S=1 

FOR Y6=1 TO 12¢PRINT {NEXT Y6 

PRINT "WELCOME TO ARITHMETIC FPRACTICE." 

PRINT "MY NAME IS AGGRAVATION ~ AGGIE FOR SHORT." 

LINE INPUT "WHAT’S YOUR NAME? "$S$$GOSUB 3000:GOSUB 3100 
PRINT 

PRINT TABC(20)5S¢%"» THIS IS A SERIES OF FOUR" 

PRINT "SETS OF TEN PROBLEMS EACH. IN ANY SET YOU GET 10 FO 


FRINT "FOR EACH QUESTION ANSWERED CORRECTLY THE FIRST TIME 
FRINT "S POINTS FOR EACH QUESTION ANSWERED CORRECTLY THE SE 


PRINT “TIME. * 
PRINT “YOU MUST GET 75 POINTS OR MORE ON A SET TO GO ON TO 


PRINT “NEXT SET OF FROBLEMS." 

PRINT "NOW LET’S BEGIN." 

ON $ GOTO 110%220%350+570 

T=12Q=13Z=03Z1=0 

PRINT TAB(20)5 "ADDITION FACTS" 
A=INTCLOXRNIC1)) 

B= INTC LOXRNDC1)) 

GOSUB 2400 

IF M=O THEN 130 

IF (Q>5 AND A+B<10) THEN 130 

PRINT "QUESTION" #Q3"3"3 

PRINT "WHAT IS "As" + "$B" EQUAL TO" 

LINE INFUT #Z% 

GOSUB 9007IF YS=1 THEN YS=O?3GOSUB 3250:GOTO 150 
IF At+B=X THEN GOSUB 1000:GOTO 130 

IF AtK&=>X AND T=1 THEN GOSUB 1200%T=2:GOTO 160 
IF AtB2>X AND T=2 THEN GOSUB 1300!GOTO 130 
T=13Q=13Z=02Z1=0 

FRINT TABC20)5 "MULTIPLICATION FACTS" 


a= 36 


FROGRA 


00240 
00250 
00254 
00257 
00258 
00260 
00270 
00280 
00285 
00290 
00300 
00310 
00350 
00360 
00370 
00380 
00383 
00387 
00388 
00390 
00400 
00500 
00505 
00510 
00520 
00530 
00570 
00580 
00590 
00600 
00604 
00607 
00608 
00610 
00620 
00630 
00640 
00650 
00660 


M NAMES ARITHMETIC FPRACTICE/HOYLE = CONT‘D > 


A=INTCLOXRND C1) > 

B=INTCLOXRND(1)> 

GOSUB 2400 

IF M=0 THEN 240 

IF (Q>6 ANTI AXB<40) THEN 240 

PRINT "QUESTION "sQ5"2"s 

PRINT "WHAT IS "As" X "FBS" EQUAL TO"S 

LINE INFUT #Z% 

GOSUB 9O0tIF Y5S=1 THEN Y5S=O0iGOSUB 3250:GOTO 240 
IF AxXB=X THEN GOSUB 1000:GOTO 240 

IF AXB<>X AND T=1 THEN GOSUB 1200%T=2:GOTO 270 
IF AXB<>X AND T=2 THEN GOSUB 1300:GOTO 240 
T=13Q=13Z=03Z1=0 

PRINT TAB(C20)% "ADDITION" 

A=INT(60XRNDC1) 943 

B=INTC7OXRNIVC1) +10 

GOSUR 2400 

IF M=O THEN 370 

IF (Q>6 ANDI AtBL100) THEN 370 

FRINT "QUESTION "sQe"s "s 

FRINT "WHAT IS "Ae" + "#Bs" EQUAL TO"S 

LINE INFUT #Z% 

GOSUB 900%IF YS=1 THEN YS=OiGOSUB 3250:GOTO 390 
IF At+B=X THEN GOSUB 1000:GOTO 370 

IF AtER<>X AND T=1 THEN GOSUB 1200%T=2:GOTO 400 
IF At+B<>X AND T=2 THEN GOSUB 1300:GOTO 370 
T#=1°Q=13Z=03Z1=0 

PRINT TAB(20)% "SUBTRACTION" 

A=INTC40XRNDC1) 0 +2 

B=INTCLOOXRNIC1) > 

GOSUB 2400 

IF M=O THEN 5390 

IF (Q>6 AND B-A<30) THEN 3990 


IF ASB THEN 650 
l=B 
BA 
A=D 
PRINT "QUESTION 


"> 
PRINT "WHAT IS "#3 Ag" EQUAL TO" 


PROGRAM NAME? ARITHMETIC PRACTICE/HOYLE < CONT’D * 


00670 
00675 
00680 
00690 
00700 
00900 
00910 
00920 
00930 
00940 
01000 
01010 
01020 
01025 
01030 
01035 
01040 
01045 
01050 
01055 
01060 
01070 
01080 
01090 
01100 
01110 
01200 
01210 
0122 

01230 
01240 
01250 
01260 
01300 
01310 
01320 
01330 
01340 
01360 


LINE INFUT #24 

GOSUB 9O007IF YS=1 THEN YS=O:GOSUB 3250:GOTO 650 
IF B-A=X THEN GOSUB 1000:GOTO 590 

IF B-A<>X AND T=1 THEN GOSUB 1200:T=2:GOTO 660 
IF B-A<>X AND T=2 THEN GOSUB 1300:GOTO S90 

FOR Y7=1 TO LEN(Z#) 

LET Y$=MIDS(Z$*Y791) 

TF (ASC(Y$)<=47 OR ASC(Y$)>=58) THEN YS=13RETURN 
NEXT Y7 

X=VAL (Z$) SRETURN 

C=INT(OXRNDC1)) 

ON Ctl GOTO 1020%1030%1040%10507106011025 91035910459 1055 
PRINT "THAT IS CORRECT*:GOTO 1070 

PRINT S#s"» YOU ARE DOING VERY WELL "$GOTO 1070 
PRINT “VERY GOOD"?GOTO 1070 

PRINT "RIGHT":GOTO 1070 

PRINT “EXCELLENT"SGOTO 1070 

PRINT "YOU ARE REALLY DOING WELL"iGOTO 1070 
PRINT "CORRECT"?GOTO 1070 

PRINT "THAT’S FINE"{$GOTO 1070 

PRINT S$#"» THAT’S REALLY GREAT."3GOTO 1070 

IF T=1 THEN S(S9Q)=102T(S)=T(S)49(S9Q) 

IF T=2 THEN S(S9Q)=SiT(S)=T(S)+S8 (SQ) tT=1 

Q=Qt1 

IF Q=11 THEN 2000 

RETURN 

C=INT(SKRNDC1)) 

ON Ct+i GOTO 1220%91230%124091250+71260 

PRINT "I’M SORRY. THAT IS WRONG. TRY AGAIN. "{RETURN 
PRINT "NO! THINK CAREFULLY! TRY AGAIN. "RETURN 
PRINT "I’M SORRY. YOU NEED TO TRY AGAIN. "RETURN 
PRINT "NO! “sS$5"» PLEASE TRY AGAIN. "RETURN 
PRINT "THAT IS NOT CORRECT. TRY AGAIN. "$RETURN 
ON S GOTO 1310%1320%1330%1340 

PRINT "NO! "SAS" + "SEF" = "SA4FBIGOTO 1360 

PRINT "NO! "SA8" X "$B" "SAXBiGOTO 1360 

PRINT "NO! “sAs" + "she" "SAtBIGOTO 1360 

PRINT "NO! "sR" ~ "sA3" "3B-AiGOTO 1360 
$(SrQ)=O02Q=Q41iT=1 


Ho OH 
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PROGRAM NAME? ARITHMETIC FPRACTICE/HOYLE < CONT’D > 


01370 
01380 
02000 
RES" 

02020 
02030 
02040 
02045 
02047 
02050 
02060 


IF Q=11 THEN 2000 
RETURN 
PRINT "YOU HAVE FINISHED SET "sSs". "“sS$e"» YOUR SCORES WE 


FRINT "QUESTION "“s 

FOR I=1 TO 9i{PRINT Is" “si3NEXT ISPRINT 10 

FOR I=1 TO 603PRINT “~"sSiNEXT ITSPRINT *~* 

FRINT TABRC9)$ 

CNTRL 39S 

FOR I=1 TO OF RINT S(SrI)*tNEXT ITSPRINT S¢(S+%10) 

PRINT “THIS MEANS THAT YOUR TOTAL SCORE FOR SET “#S#" WAS * 


sT(S)9"." 


02070 
02075 


CNTRL 3214 
IF T(S)2=95 THEN PRINT S##"» YOU REALLY KNEW YOUR ARITHMETI 


C FACTS IN"S 


02076 
02080 
02085 
02090 
N TQ" 
02100 
02110 
02120 
02130 
02140 
02150 
02170 
O2180 
02185 
02190 
02200 
02210 
02212 
02215 
02220 
02230 
02240 
02243 
02244 


IF T($)2=95 THEN PRINT " THIS SET. THAT’S GREAT." 

IF T¢(S)<75 THEN 2140 

IF S=4 THEN 2300 

FRINT "SINCE YOUR SCORE WAS AT LEAST 75» YOU MAY NOW MOVE O 


PRINT "SET “sSt15".° 

LINE INFUT “ARE YOU READY?" +x 

IF LEFTS(X#e1)<>"Y" THEN 2200 

$=S+1:GOTO 100 

PRINT "I’M SORRY. BUT YOUR SCORE WAS NOT AT LEAST 75." 
PRINT "IF YOU CONTINUEy YOU MUST STAY WITH THIS SET." 
LINE INFUT "ARE YOU READY?" X% 

IF LEFT#(X#+1)<>"Y¥" THEN 2200 

T(S)=0 

GOTO 100 

FOR I=1 TO StPRINT "SET "Is" ~ SCORE "$TCI)¢NEXT I 
PRINT "YOUR TOTAL AVERAGE FOR "55% 

IF S=1 THEN FRINT * SET IS"siGOTO 2220 

PRINT * SETS is*s 

A=0 

FOR I=1 TO SiA=AtTCI) NEXT IT 

A=A/SIFRINT A 

IF Az=95 THEN FRINT S#3#"» YOUR PERFORMANCE ON “35% 

IF Az=95 AND S=1 THEN FRINT * SET HAS"s 
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FROGRAM NAME? ARITHMETIC FRACTICE/HOYLE < CONT‘’D > 


IF Az=95 AND Soi THEN PRINT " SETS HAS" 

IF A>=95 THEN FRINT “© BEEN EXCELLENT." 

FRINT "FLEASE TRY AGAIN ANYTIME YOU WISH." 

END 

PRINT "YOU HAVE SATISFACTORILY COMPLETED ALL FOUR SETS OF" 
PRINT “FROBLEMS. YOUR SCORES WERE?" 

GOTO 2200 

M=LSACQ)=AIB(Q)=B 

IF Q=1 THEN RETURN 

FOR L=1 TO Q-1 

IF (ACLO=A AND BCLO=B) OR (CACL)=B AND BC(L)D=A) THEN M=O3RETU 


NEXT L 

IF A=0 OR B=0 THEN Z=Z+1 

IF A=1 OR B=1 THEN Z1=Z1+1 

IF Z=2 THEN Z=13M=O?3 RETURN w 
IF Zi=2 THEN Z1i=1%M=O?RETURN 

RETURN 

I0=1 

IF RIGHTS(LEFTSé(S$yTO)91)<2>" " THEN 3050 

T0=TO+1 

IF [0=20 THEN 3200 

GOTO 3010 

S$=RIGHT$(S#$sLEN(S$)-CTO-1)) SRETURN 

I1=2 

IF RIGHTS(LEFT&é(S$9T1)91)=" " THEN 3150 

IF T1>sLENCS$) THEN 3150 

Ti=L1iti 

IF [1=20 THEN 3220 

GOTO 3110 

S$=LEFT$(¢S$9T1-1) SRETURN 

PRINT "PLEASE DON’T LEAVE SO MANY BLANKS BEFORE YOUR NAME." 
FRINT "NOW TRY AGAIN! "?GOTO 22 

FRINT “YOUR NAME CAN’T BE SO LONG. DON’T FORGET TO LEAVE" 
FRINT "A SFACE BETWEEN WORDS. NOW TRY AGAIN. "GOTO 22 
FRINT TABC7)5"THE ANSWER TO ANY QUESTION IS A NUMBER. MAKE 


FRINT "SURE YOU [10 NOT FUT ANY BLANKS IN YOUR ANSWER. EITH 


FRINT "AT THE BEGINNINGy THE MIDDLE» OR THE END. NOW TRY AG 


RETURN 
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PROGRAM NANES MULTIPLICATION FPRACTICE/PELLETIER 


O0010 REM "MULTIFLICATION TABLE PRACTICE..«-BY G AF «eREVISED 11/7 
Saf FS” 
00020 FRINT ".+MULTIFLICATION FRACTICE~-TABLES«.+" 
00025 M=O2N=0 
00030 FRINT ¢PRINT “see WHAT TABLE "se INPUT T 
00040 FRINT 
00050 FOR T=] TO 12 
00060 FRINT TARCS) Ts" X "STs" "SPINFUT S 
00070 IF S*>TXI THEN 145 
00075 IF I=12 THEN FRINT "..-GOOU..-+"FRINT ¢GOTO 185 
00080 FRINT “..GOOK..+NEXT?:" 
00085 W=d 
Q00090 NEXT I 
00092 GOTO 185 
0008S FRINT 
“ OO100 FRINT "...+ANOTHER TABLE. .:’°Y% OR “N’eee "FELINE INFUT FAS 
OO110 IF Age>"Y" THEN 330 
00120 GOTO 25 
OO150 FRINT "...WRONG AGAIN .«.+THE ANSWER IS¢t "“sTe" X "ele" = "FTRI 
OOLSS Wed 
OOLS7 N=N+]. 
00160 GOTO 9d 
00165 WeW+d 
00146 IF Wei THEN 150 
00170 FRINT “.«.+WRONGeo+TRY AGAINe +" 
OOL75 M=M+1 
00180 GOTO 40 
00185 IF MO THEN 210 
00190 IF M4 THEN 220 
00200 FRINT "..YOU MISSE0 "Ms "ANSWER(S) ON THE FIRST TRY ANT "¥N 
>"ANSWERCS) "3 
OO201 FRINT "ON THE SECOND TRY...YOU NEED MORE STUDY ON THIS TABL 
Eses" 
00202 GOTO 250 
00210 PRINT "..-VERY GOOU...100% CORRECT ON THE FIRST TRY++¢+" 
OO211 FRINT “.. CONGRATULATIONS!!! ' "GOTO 250 
00220 FRINT "..sNOT BAD..».-YOU MISSED “sMs"ANSWER(S) ON THE FIRST 
TRY» "3 
00221 FRINT "ANI "SN3"ANSWER(CS) ON THE SECOND TRY.-- YOU COULD D0 
BETTER«++" 


2 41 


FROGRAM NAME? MULTIFICATION PRACTICE/PELLETIER 


00222 GOTO 250 

00250 PRINT "..(PAUSE..«WHEN YOU’RE READY TO GO ON» FUSH THE <SFAC 
E> BAR+e+)" 

00260 FAUSE $ 

00270 FRINT "..NOW LET’S REVIEW THE WHOLE TABLE..."3 

00280 FOR I=1TO 11 

00290 PRINT TAB(S) Te" X*¢Ie "= "$TKI 

00300 NEXT I 


00310 PRINT TABCS) Te" X"¢129"= "FTKI2S" (PAUSE) *s3FAUSE ¢ 
00320 GOTO 100 
00330 END 
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FROGRAM NAME? NAME THE STATES’ CAPITOLS/NICO 


L0 REM Xx THE "NAME THE STATE CAFITALS" PROGRAM 

20 REM 

30 FOR I=1 TO 16\PRINT \NNEXT I 

40 RANDOMIZE 

SO PRINT TAB(C18) > UOOOQOO”OOOOOOOO OOOO OOK OK OK " 
60 PRINT TAB(18)5"x* THE ‘NAME THE STATE CAPITALS’ PROGRAM xX" 
70 PRINT TAB(18) 9 "XK" $s TABCS8) 5 "x" 


80 FRINT TARC18) 9 °xX BYeeoee WILLARD IT. NICO x" 
90 PRINT TAB (78) 3 OOOO” OOOO OOOO OKO K " 
100 FRINT 


110 PRINT TAB(24)5 "HERE IS A QUIZ TO SEE HOW MANY" 

120 PRINT TAB(25)s"STATE CAPITALS YOU CAN NAME.” 

130 PRINT\FRINT 

140 TIIM S#(S0%2) 

150 FOR A=1 TO SO\FOR B=1 TO 2\READ S#(AyB)\NEXT BNNEXT A 
160 PRINT "FIRST» PLEASE TELL ME YOUR NAME.++."S\ INPUT NS 
170 IF LEN(N$)<20 GOTO 200 

180 FRINT “HOW ABOUT A NICKNAME INSTEAD...+"s\INFUT N& 
190 GOTO 170 

200 PRINT\PRINT "“THANKS» “sNG5"! HERE WE GOeeeee® 

210 FRINT “I’LL NAME A STATE AND YOU TELL ME ITS CAFITAL" 
220 PRINT\FRINT “HERE’S THE FIRST ONE. +e+e" 

230 S=SO\R=0\W=0 

240 PRINT\EPRINT\AS="" 

250 IF Q*>0 GOTO 270 

260 PRINT “WHAT CITY IS THE CAPITAL OF "s\GOTO 350 

270 IF Q*>1 GOTO 290 

280 PRINT "“HERE’S THE NEXT ONEs++++ "8\GOTO 350 

290 IF Q*>2 GOTO 310 

300 PRINT "TELL ME THE CAFITAL OF "#\GOTO 350 

310 IF Q#>3 GOTO 330 

320 FRINT "OKy "$NS3"! NAME THE STATE CAPITAL OF "#\GOTO 350 
330 Q=~1 

340 PRINT "HERE’S A TOUGH ONE! WHAT’S THE CAPITAL OF "% 
350 Q=Q+1\X=INTCSKRNDC1))41\S=5-1 

360 PRINT S$(X+1) 

370 INFUT AS 

380 IF LEN(CA$)>0 GOTO 400 
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2 Hee U G =) 0 Fost Tee W Ar. R >t E > 
oO 

PROGRAM NAME? NAME THE STATES’ CAPITOLS/NICO <= CONT’D = 

390 FRINT "DON’T KNOW THAT ONEs “sNSF"?"\GOTO 640 

400 IF At=S#(X»2) GOTO 700 

410 FOR I=1 TO 50 

420 IF At=S$(I»¥2) GOTO 450 

430 NEXT I 

440 GOTO 480 

450 PRINT A$s" IS THE CAPITAL OF ONE OF THE STATES»" 

460 PRINT " BUT IT’S NOT "#S$¢Xx1) 

470 GOTO 650 

480 IF N&>0 GOTO S500 

490 PRINT "“SORRY» "NSF"! "FASS" ITS NOT CORRECT! "\GOTO 650 

500 IF Ne>1 GOTO 3540 

510 PRINT "PEOPLE WHO LIVE IN "sS#¢(X»91)%" KNOW THAT" 

320 PRINT " "SA$9" ISN’T THE CAPITAL!" 

930 GOTO 650 

340 IF Ne>2 GOTO 580 

550 PRINT "MANY FEOFLE GUESS "SASS "y "FNS" y" V 

360 PRINT * BUT IT’S NOT THE CAFITAL OF "#S$¢(X+1) 

370 GOTO 650 

5980 IF N&>3 GOTO 620 

590 PRINT “THAT’S NOT RIGHTy "SNS9"!" 

600 FRINT * BUT I’LL GIVE YOU ANOTHER CHANCE .++++" 

610 GOTO 650 

620 N=-1 

630 FRINT “OOFS! “sA$s" MAY BE A FAMILIAR CITY* 

640 PRINT * IN "$S$(Xv1)5"%» BUT IT’S NOT THE CAPITAL!" 

650 N=Nt1 

660 PRINT "TRY AGAIN! =~ "SSECXeL)F"eeeee "FNINPUT AS 

670 IF A$=S$(X»2) GOTO 700 

680 FRINT “THE CORRECT ANSWER IS "#S#(Xr2) 

690 W=Wti\GOTO 870 

700 R=R+1 

710 IF Y#>0 GOTO 730 

720 PRINT "GOOD GOING: "SNF"! THAT’S RIGHT! "\GOTO 840 

730 IF Ye>1 GOTO 740 

740 PRINT "IT SURE IS "“sA¢s"» “SNBS"! KEEP UP THE GOOD WORK! * 

730 GOTO 840 

760 IF Ye22 GOTO 790 

770 PRINT "ANOTHER RIGHT ANSWERy "sN$5"! YOU’RE DOING FINE!" 
VY 


FROGRAM NAME? NAME THE STATES’ CAPITOLS/NICO < CONT‘D > 


780 
790 
800 
810 
820 
830 
840 
850 
840 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
113 
1140 
1150 
1160 


GOTO 840 

IF Ye>3 GOTO 820 

PRINT "PEOPLE IN "#S$(Xe1)%" ARE PROUD OF YOUr "sNG5"I" 
GOTO 840 

Y=~1 

PRINT "THAT’S RIGHT» “sN$#"! YOU’VE GOT"$Rs "RIGHT SO FAR!" 
Y=Yt1 

IF S=0 GOTO 970 

IF X=50 GOTO 960 

T1$=S$ (X91) 

T2$=98(Xx2) 
FOR I=xX TO 49 
FOR B=1 TO 2 
S$(IyB)=S$(I+1,B) 
NEXT B 
NEXT I 
$$(5071)=T1$ 
$$ (5072) =T2$ 
GOTO 240 
PRINT\NFRINT\PRINT 

IF Re>50 GOTO 1030 
PRINT CHRS¢7) 5CHRE( 79 "II! A PERFECT SCORE, “#NSe" EIt® 
PRINT "'!! CONGRATULATION S !!!"$CHRS(7)5 
FRINT CHRS¢(7) 

GOTO 1060 

FRINT "HERE’S THE FINAL SCORE, "sNGe"! "5 

FRINT "OUT OF SO STATES+++-" 

PRINT "YOU GOT"S Re "RIGHT AND" Ws "WRONG. * 

PRINT\FRINT 

FRINT "WANT TO TRY AGAINe +++ "“S\NINFUT AS 

IF SEGS(AG$y1ly1)="Y" GOTO 230 

PRINT\F RINT 

PRINT "OKRy "SNBF"E MF 

FRINT “THANKS FOR TAKING THE QUIZ ON STATE CAPITALS." 
FRINT\FPRINTNEND 

DATA "ALABAMA" » "MONTGOMERY" » "ALASKA" » "JUNEAU" » "ARIZONA" 
DATA "FHOENIX"» "ARKANSAS"»s "LITTLE ROCK" » "CALIFORNIA" 
DATA "SACRAMENTO" » "COLORADO" » "QENVER" » "CONNECTICUT" 
DATA "HARTFORD" » "DELAWARE "» "DOVER" »"FLORIDA® »* TALLAHASSEE" 


CHP UP G> € S Pf OFM F PS Tot WOK A SE OR oS E 


FROGRAM NAME? NAME THE STATES’ CAPITOLS/NICO = CONT’D = 


1170 DATA "GEORGIA"s "ATLANTA" » "HAWAII" » "HONOLULU" » "IDAHO" 

1180 DATA "BOISE" 

1190 DATA “ILLINOIS"s "SPRINGFIELD" » "INDIANA" » "INDIANAPOLIS" 
1200 DATA "IOWA"s "DES MOINES"s "KANSAS "+ "TOPEKA" » "KENTUCKY ® 

1210 DATA "FRANKFORT"» "LOUISIANA" » "BATON ROUGE" » "MAINE" 

1220 DATA “AUGUSTA"» "MARYLAND" » "ANNAPOLIS" » "MASSACHUSETTS" 

1230 DATA "BOSTON"» "MICHIGAN" » "LANSING" »"MINNESOTA"» "ST. PAUL" 
1240 DATA “MISSISSIPFI"»"JACKSON’s"MISSOURI"»"JEFFERSON CITY" 
1250 DATA "MONTANA"» "HELENA*» "NEBRASKA" » "LINCOLN" » "NEVADA" 

1260 DATA "CARSON CITY"»s "NEW HAMPSHIRE"» "CONCORD" » "NEW JERSEY" 
1270 DATA "TRENTON"» "NEW MEXICO"»s "SANTA FE"» "NEW YORK"» "ALBANY" 
1280 DATA "NORTH CAROLINA" "RALEIGH" » "NORTH DAKOTA" » "BISMARCK" 
1290 DATA "“OHIO"» "COLUMBUS" » "OKLAHOMA" » “OKLAHOMA CITY"» "OREGON" 
1300 DATA "SALEM"» "PENNSYLVANIA" » "HARRISBURG" » “RHODE ISLAND" 
1310 DATA "PROVIDENCE" » "SOUTH CAROLINA" » *COLUMEIA" 

1320 DATA "SOUTH DAKOTA" 

1330 DATA "PIERRE*» "TENNESSEE" » "NASHVILLE" »"TEXAS"» "AUSTIN" 
1340 DATA "UTAH"s "SALT LAKE CITY"» "VERMONT" » "MONTPELIER" 

1350 DATA "VIRGINIA": "RICHMOND" » "WASHINGTON" » "OLYMPIA" 

1360 DATA "WEST VIRGINIA" » "CHARLESTON" » "WISCONSIN" » “MADTSON" 
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"WYOMING" » "CHEYENNE" 
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SECTION II] 


FINANCIAL 


PROGRAM NAME PAGE 


DECLINING INTEREST/PARKER.......cccccccccccceccecce a 


STOCK REPORTER/MORRISON.....ccsccccccccccccccceccece 3-3 


UR G> <3 24 O >< F Ot Toe WK A Oo R PSE > 


PROGRAM NAME? DECLINING INTEREST/PARKER 


00010 
00020 
00110 
00120 
00130 
00140 
00150 
00160 
00162 
00164 
00170 
00171 
00172 
00173 
00175 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00255 
00260 
00275 
00280 
RINCIP 
00290 
00295 
00300 
00310 
00315 
00320 
00330 
00350 
00355 
00360 
wed 9N2 


00370 


REM DECLINING INTEREST/FPARKER 

REM WRITTEN BY STEVE FARKER HEC # 29 

REM DECLINING INTEREST CALCULATION FROBLEM 
PRINT 

PRINT tPF RINT "DECLINING INTEREST PROGRAM" $+ PRINT 
INFUT "AMOUNT OF LOAN? "FA 

INPUT “INTEREST RATE (E.G. 9.25)? "SR 

INPUT “LENGTH OF LOAN (MONTHS)? "3M 

IF Mz>INT(M) THEN 1460 

LINE INPUT "WANT FAYMENT CALCULATED FOR YOU? “sB¢ 
PRINT tFPRINT AS"FOR"SM# "MONTHS AT"SR$ "PERCENT" 
R=R/1200 

IF LEFT$(B$21)="Y" THEN 200 

INFUT "WHAT IS THE MONTHLY PAYMENT? “+P 


GOTO 230 

REM CALCULATE MONTHLYPAYMENT AND ROUND UF TO CENTS. 
C=(R+1)°M 

P=AKCCRKC)/(C-1)) 


P=(PXL0O0)¢12 PINT(P) 3P=P/100 

PRINT "MONTHLY PAYMENT="3F 

REM FRINT EITHER A MONTHLY BREAKDOWN OR JUST PAYMENTS 
LINE INPUT "WANT A MONTHLY BREAKDOWN? "BS 

F=0 

IF LEFT$(B$r1)<>"Y" THEN F=1! GOTO 290 

PRINT 

PRINT "MONTH BALANCE INTEREST INT T.D PRINCIPLE 
LE T.p" 

Z=0% T=0% I2=0% N2=0! P2= 

R=A 

FOR K=1TO M 

I=BXR 

T=(I¥100) 412 I=INT(I) $1=1/100 

IF K=M THEN P=B+1 

P2=P2+P 

N=P~It B=B-Nt I2=I2+13 N2=N2+N 

IF F=1 THEN 370 


PRINT TABCL) KS TABC7) $B TABCL9) § 13 TAB(29) $125 TABC4AL) FN¢ TABC 


NEXT K 


id 


FROGRAM NAME: 


DECLINING INTEREST/PARKER <= CONT‘D > 


00375 PRINT “FINAL PAYMENT ="5P 


00380 PRINT “ 


TOTAL PAYMENTS="sF23 PRINT 


00390 LINE INPUT "WANT TO DO ANOTHER ONE? "+ BS 
00400 IF LEFT#(B%21)="Y" THEN 140 


00410 END 
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PROGRAM NAME? STOCK REPORTER/MORRISON 


OO1L00 REM XK KKK KKK KKK KKK KKK KK KKK RK KKK KK KKK KKK KK KKK 


00110 REM x x 
00120 REM X STOCK REPORTER x 
00130 REM x WRITTEN BY x 
00140 REM X MIKE MORRISON (513) 531-8825 x 
00150 REM X 2553 MOUNDVIEW DRIVE x 
00160 REM xX CINCINNATI» OHIO 45212 x 
00770 REM OOO”O”OOOOOOOOO OO OOOO OOOO OOK OK OK 


00180 REM 
00190 REM ANY STOCK PRICE MAY BE ENTERED AS DOLLARS AND CENTS 


00200 REM (EVEN FRACTIONAL CENTS) OR AS AN ARBITRARILY 
00210 REM COMPLEX EXPRESSION. I.E.% 18-3/8 MAY BE 
00220 REM ENTERED 18.375 x*ORkK 18 + 3 7/7 8 

00230 REM 


00240 LINE INFUT "DO YOU WISH TO CALCULATE YIELUS? (Y OR N) "$5 X# 
00250 IF X$ = "N" THEN 330 

00260 IF X$ <=> "Y" THEN 240 

00270 INFUT “STOCK PRICE: "3 PO 

00280 IF FO <> O THEN 300 

00290 STOF 

00300 INFUT “DIVIDEND? "3 Lo 

00310 PRINT "YIELD EQUALS "# 100 x (DO / FO)$ CHRS(10) 

00320 GOTO 270 


00330 REM 

00340 REM TO ADD OR DELETE STOCKS» SIMPLY ADD OR DELETE APFROFRIA 
TE 

00350 REM DATA STATEMENTS. SUBSEQUENT PURCHASES OF THE SAME 
003460 REM STOCK SHOULD BE IN SEQUENTIAL DATA STATEMENTS. 
00370 REM 

00380 REM N$& = STOCK EXCHANGE DESIGNATION (10) & NAME 

00390 REM D¢ = DATE STRING (8) & OTHER COMMENTS 


00400 REM S = # OF SHARES HELD 

00410 REM FO = PURCHASE FRICE 

00420 REM DTD = DIVIDEND 

00430 REM F1 = CURRENT SELLING PRICE 
00440 N= 0 I = 0 

00450 READ N¢ 

00460 IF N$ = "000" THEN 500 

00470 IT=I+i1 


“Hot USK Ge < GS 4 O 4 F SK T Ft Wet A PE OR PX E > 


PROGRAM NAME? STOCK REPORTER/MORRISON < CONT‘D = 


00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
006460 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
$(10)% 
00850 
$(10)3 


READ D¢, Sy» FOr 

GOTO 450 

RESTORE 

DIM N$(I)y DCT)» SCT)» POCT)» DCT)» F1i¢T) 
J = I 


FOR I = 1 T0 J 

READ N$(T)» DSC)» SCT)» FOCI)» DCT) 

NEXT I 

FOR I = 1 TO J 

IF LEFT#(N$(I)¥10) <> LEFT#(NS(IT - 1)%10) THEN 600 
Pi¢I) = P1¢I ~- 1) 

NEXT I 

PRINT CHR$(10)% N$C(ID» DST) 

INFUT "CURRENT SELLING PRICE? "s Pict) 

PRINT "CURRENT DIVIDEND = *¢ 100 * (OCI) 7 Pitt) 
NEXT I 

GOSUB 830 

FOR I = 1 T0 J 

tt S¢(I) x FOCT) 

Ci S(I) * F1iC¢T) 

G1 Ci ~ fi 

IF LEFT#(N$(I)910) <> LEFTS(NS(I - 1)7%10) THEN 720 
PRINT + 

GOTO 730 

PRINT LEFTS(N$(T) 210)» 

PRINT Iiy 100 & (OCI) / FOCT))» Cis Gl 


iio i 


Io = [0 + [1 

co = CO + Cl 

GO = GO + Gl 

IF INT(I 7 8) «> (I 7 8) THEN 790 
GOSUB 830 

NEXT I 

PRINT 

PRINT “XTOTALSK"»s IO» » CO» GO 
END 

PAUSE 


FRINT CHR$(10)% CHR$(10)% CHR$(10)% CHRS(10)5 CHRS(10)% CHR 


PRINT CHR$(10)% CHR#(10)% CHR#(10)% CHRS(10)% CHRS(10)% 


+ 
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FROGRAM NAME’ 


00860 PRINT 


R LOSS" 


2G > 


<S >< 


STOCK REPORTER/MORRISON 


00870 PRINT 
00880 RETURN 


01000 DATA 
01010 DATA 
01020 DATA 
+68 
01030 DATA 
01040 DATA 
1.66 
01050 DATA 
2+24 
01060 TATA 
01070 DATA 
01080 DATA 
soa i ae 
01081 DATA 
01090 TATA 
01100 DATA 
09999 TATA 


Ca 
? 


77 
* 
+ 


"NAME"» "INVESTMENT", “YIELD"» "CURRENT VAL"» "GAIN O 
"A MF "y "S-13"» 100 16.1257 1.24 

"BORG W BORG-WARNER"» "7-18", SO» 24» 1.80 

“CHAM SF CHAMPION SFARKPLUG"y "S-19"» 100% 1047/8» 
"CONS FPWR CONSUMERS POWER", "7-18", SO» 23.25% 2.12 
"TAYT FOL DAYTON POWER & LIGHT", "8-1"» 100% 1747/8» 
"ao 7 € GENERAL TELE, & ELEC."» "S-17"y SOr 29.50% 
"N LIND NATIONAL LEAD", » SOr 15+7/8» 1.20 

"N LIND "y y SOr 164+1/78% 1.20 

*"NYSEG NY STATE ELEC. & GAS"y "7-13 & 3/72 SPLIT 
150% 19+1/ér 1-68 

"SOUTH CO SOUTHERN CO", "7-26", 100% 14.757 1.54 
"TRANSM TRANSAMERICA" » "6-29" 100% 13475» +80 
"000°" 
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FROGRAM NAME! CASHFLOW-PROJECTION/WIEDLE 


00010 REM ~—CASHFLOW/PROJECTION- 

00020 REM XKK RUSSELL WIEDLE / 4717 W. 30TH / TOPEKA? KS 66614 Xx 
x 

00030 REM CONTROL ARRAY 

00050 DIM F«(9r4) 

00070 DATA 1rO0%YrY» LyOvYolys LrOxrVr7y LsOrVr14 

00090 DATA Orle25ely Ovly24r2y Ovrdy24r4e Ovle24vby Ovlr 2412 
00100 REM SEMI-MONTH ARRAY 

00110 DIM $(26) 

00120 REM JAN-JUN 


00130 DATA Oy» Ov14y 31945» S9v739 909104» 120134» 
1517165 

00140 REM JUL-DEC 

00150 DATA 181195, 2122226» 2439257» 27392877 3049318» 


334x348, 365 
00200 REM Xk START XxX 
00230 REM ~LIST- 
00240 GOSUB 2000 
00250 REM -INIT~ 
00260 GOSUB 3000 
00270 REM ~PROMPT~ 
00280 GOSUB 3500 
00290 REM ~FROJECT TRANSACTIONS— 
00300 GOSUB 4000 
00310 REM ~FPRINT- 
00320 GOSUB 6100 
00330 REM ~FROMPT~ 
00340 P¢="CASHFLOW QUERY (OR O TO ENDD* 
00350 GOSUB 3500 
00360 REM -QUERY- 
00370 IF Z1i<>0 THEN GOSUB 5000 
00380 IF Zi<>0 THEN GOTO 350 
00390 REM ~TERMINATE- 
00400 END 
02000 LINE INPUT “LIST INFUT? (Y OR N) "#Q% 
02010 IF Q$="Y" THEN LIST 7000+9999 
02999 RETURN 
03000 REM ~INIT SUB- 
03010 Y=365 


SHe< USS G> <¢€¢ § 4 O OK F P< TOK Wot A PK R OC E > 


PROGRAM NAME? CASHFLOW-FROJECTION/WIEDLE < CONT‘’D > 


03020 R1=25 

03030 R2=45 

03040 DIM R¢(R1) eR R223) 

03060 DO=1iD1=22W1=32W2=43M0=53M1=62M2=73M3=83M6=92Q1=M32Q2=M463Y1 
=O 

03180 FOR I=1 TO 9 

03190 FOR J=0O TO 3 

03200 READ PC(IsJ) 

03210 NEXT J 

03220 NEXT I 

03230 FOR I=1 TO 26 

03240 READ S(I) 

03250 NEXT I 

03260 DIM C(3466) tREM -CASHFLOW ARRAY- 

03270 P$="DETAILED REPORT" 

03280 CNTRL 490 

03400 REM —-FUNCTIONS— 

03410 REM -CONVERT (MONTH*DAY) TO RELATIVE DAY 

03420 DEF FN D8(V1l9V¥2)=S(V1k2)4V2 

03430 REM -CONVERT (SEMI-MONTH*s DAY) TO RELATIVE DAY 
03440 DEF FN D9¢(V1is¥2)=S(V1)+4V2 

03450 REM -ADJ COL SUB- 

03460 DEF FN C1i$(V1)="$"+MIDS¢" "+STRECV1) ey INTCMAX(22LOGCMA 
XCABS(V1)».001))/L0G(10)-(SGN(V1)~-1)724+4))) 

03470 REM -ADJ DECIMALS SUB- 

03480 DEF FN C2$(V2)=LEFT$(FN C1$(V2)*7)4+MIDS$(STR#(ABS(V2-INT(V2) 
141.005) 2393) 

03499 RETURN 

03500 REM -PROMFPT SUB- 

03510 P1i$="ENTER MONTH NUMBER FOR “+P¢+" ===> * 

03520 INPUT P1%#Zi 

03530 RETURN 

04000 REM -~FROJECT SUE- 

04010 PRINT 

04020 PRINT TAB(34)5"YEARLY"$TAB(48) § "RUNNING" 

04030 PRINT " ITEM" TAB(34)% "AMOUNT" $TAB(C48)¢ "TOTAL" 
04040 FRINT 

04050 READ TryMrDrArES 

04060 PRINT LEFTS(E%230)5 


PROGRAM NAME? CASHFLOW-PROJECTION/WIEDLE < CONT‘’D > 


04070 
04080 
04090 
04100 
04110 
04120 
04130 
04140 
04150 
041460 
04170 
04175 
04180 
04190 
04200 
04210 
04220 
04230 
04240 
04250 
04260 
04270 
04280 
04290 
04499 
05000 
05010 
05040 
05050 
05060 
05070 
05080 
05090 
05100 
05110 
05120 
05130 
05140 
OS99? 


PS= 

IF T>0 THEN GOTO 4120 

READ VirV2 

PS=FN D8¢(V19V2) 

T=ABS(T) 

IF T=99 THEN RETURN 

FOR J=FN D8¢MeD KPC TxO)4¢0MK2)KFCT21) TO PCTs2) STEP FCT?3) 
P2=JKPCTrOO+FFN DOCMING 25% J) eT KP CT 91) 
IF F2>P5 THEN GOTO 4260 

C(P2)=C(P2)+A 

AB=ABtTA 

PRINT " "sCHR$(8) + 

FOR I=24 TO 1 STEP ~2 

IF S$(I)<FP2 THEN GOTO 4210 

NEXT I 

2221/2 

P3=P2-SC1) 

IF Z2e>Z1 GOTO 4250 

GOSUB 6000 

NEXT J 

A7=A7+A8 

PRINT TABC31)3FN C2$(A8) FS TABRC4S) FFN C2$CA7) 
A8=0 

GOTO 4050 

RETURN 

REM ~QUERY SUR- 

Z2=13Z3=03 Z4=0 

FOR J=O TO FN [8¢Z1ir1)-1 

Z4=Z4tC(J) 

NEXT J 

FOR I=S(Zik2)¢1 TO SCCZ1t1) x2) 
Z3=Z3+C(I) 

Z4=Z44+C(T) 

PRINT Zis"/"$Z2FTABC1O)$ "DAY = “$FN C2S$(CC(I))# 
PRINT TAR(34)% "MTD “sFN C28(Z3)3 
PRINT TAB(S8) 9 "YTD "SFN C2$(Z4) 
Z22Z2t1 

NEXT I 

RETURN 


i i 


FROGRAM NAME? CASHFLOW-PROJECTION/WIEDLE «= CONT‘’D = 


06000 REM -COLLECT DETAIL DATA- 

06010 IF E$=R$(U1) THEN GOTO 6050 

06020 U1=U1t1 

06030 R$(U1)=ES 

06050 R(U2Z21)=F3 

06060 R(U292)=U1 

06070 R(U293)=A 

06080 U2=U2+t1 

06090 RETURN 

06100 REM -FRINT DETAIL REFORT~ 

06110 PRINT CHR$(10)5CHR$(13)5 "ENTER SFACE FOR DETAILED REPORT" 
06120 PAUSE 

06130 PRINT TAB(26)$"MONTH‘S" 

06140 PRINT * DAY" TABC9)$ "TRANSACTION" § TAB( 26) ¢ "CASHFLOW" 
06150 PRINT TAB(42)5 "DESCRIPTION" 

06160 PRINT “seeee2=2=2 seseesesmee wth Reins ee ets oeeeeion "3 

06170 PRINT “sseexeeecanecae meee enr eee ee * 

06180 FOR I=1 TO 31 

06190 PRINT Zis"/"3 Ts CHRS$(7) 3 

06200 FOR I2=F0S(0)-2 TO 0 STEP -1 ¢ PRINT CHRS(8)% ¢ NEXT I2 
06210 FOR J=0 TO U2 

06220 IF ITe>R(J21) THEN GOTO 6250 

06225 ES=EStR(J93) 

06230 PRINT Z15"/"S IS TABCLODFFN C2S$CRCSx3) D> 

06232 PRINT TABC25) FN C2$(ES) + 

06233 PRINT TABC40)sRE(RCJ72)) 

06250 NEXT J 

06260 NEXT I 

06270 LINE INFUT “"RE-DISPLAY REPORT? (CY OR N) "sQ% 

06280 IF Q$<>"N* THEN GOTO 6130 

06999 RETURN 

07000 REM -INFUT DATA- 

07001 REM INFUT FORMAT: 

07002 REM DATA C-~JINTERVAL »START-MONTH»s DAY » AMOUNT» “DESC "Cs END 
MONTH» DAY I 

07003 REM INTERVALS: 

07004 REM ONE-TIME=D0 DAILY=01 WEEKLY=Wi BI-WEEKLY=W2 SEMI~- 
MONTHLY=M0 

07005 REM MONTHL Y=M1 BI-MONTHLY=M2 QUARTERLY=Q1 SEMI-ANNUAL. 
=Q2 YEARLY=Y1 
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PROGRAM NAME? CASHFLOW-FROJECTION/WIEDLE 


07008 REM —-KNOWN INCOMES— 

07010 DATA MOr1i212411,.20» "PAYCHECK" 

07020 DATA D0r3r7%350.00*%"INCOME TAX REFUND" 

07030 DATA Q122715912.35r "DIVIDENDS" 

08000 REM -EXPENSES IN FRIORITY ORDER~ 

08020 DATA WirlrSr-32.25* "FOOD" 

08040 DATA M1r12239-250.007 "RENT" 

08060 DATA Milviv109-75.40» "UTILITIES" 

08080 DATA Qlr2913%-23.42» "INSURANCE" 

08100 DATA Mivilrv23%-114.107"CAR PAYMENT" 

08120 DATA M2r2¥2%-20.50»% "CLOTHING" 

08140 DATA -Wis7919-15.75 "CAMPING" +9215 

08160 DATA ~Wivslivls-20.00*"CHRISTMAS GIFTS" 12,25 

08180 DATA [0r52142-40-.00» "PARTY" 

09000 REM -FPROBABLE INCOMES~ 

09020 DATA D0r6r152120.00»"GARAGE SALE" 

09040 DATA [1079917100.00r"IRISH SWEEF STAKES" 

09500 REM ~-IF THERE IS ANY LEFT~ (A7 CONTAINS YT REMAINING) 
09520 DATA DOré91»-MAX(0Or.50KA7)»"VACATIONCSO% OF EXTRA)" 
09540 DATA [1014220r-(MAX(OrSGN(A7—-150.00))k150.00) "CB RADIO?" 
09560 DATA DOr8rl»—-(MAX(OrSGN(A7~1500-00) )k1500.00)*"H36 PRINTER 
pe 

09999 DATA PPr9P2IPLIDs *HHKK END KK" 


o =~ 10 


FROGRAM NAME? ACCOUNTS RECEIVABLES/NIAMO 


00010 REM ACCOUNTS RECEIVABLE 
00020 REM WRITTEN BY NICHOLAS NAIMO 


00110 REM SOME SPECIAL QUALITIES OF THIS FROGRAM ARE 
00120 REM NUMBER ROUNDING FOR DOLLARS & CENTS AND 

00130 REM NUMBER ALIGNMENT SO THAT DOLLARS ARE ALWAYS IN 
00140 REM DOLLARS COLUMN AND CENTS IN CENTS COLUMN 


00160 REM 


01080 REM ~9- 9m nn nn nnn nn 
01100 DIM NC 25) 2E$(25) oP $(25) »N$(25) 9R$(25) 9S$(25) 9S(25) 

01120 DIM A$(25)+B(25) 2F (25) (25) 2U$(25) 

01140 REM  %*k CHANGE THE ABOVE SUBSCRIFTS TO EQUAL YOUR NUMBER 
OF CUSTOMERS. 

01160 REM ~-9 99 nnn nnn nn nn i 


Pree eee ent eee ates eeee tee sent pte tone 


01300 PRINT " 


01400 PRINT " THIS IS THE BILLING AND ACCOUNTS RECEIVEABLE F 
ROGRAM * 

01420 PRINT 

01440 FRINT 

01460 PRINT 

01480 PRINT “WHAT IS TODAY’S DATE (MONTHs DAY» YEAR) "¢ 

01500 LINE INPUT " ? “$I¢ 

014460 REM 

01680 PRINT " 


os = it 


PROGRAM NAME? 


sett 


U > 


FRINT 
FRINT 
FRINT * 
FRINT " 
PRINT * 
FRINT 
INPUT "WHICH NUMBER» 
IF R=1 THEN 2720 

IF R=2 THEN 4480 

IF R=3 THEN 65000 
GOTO 1800 

REM 


"TYPE NUMBER 


hoe 


REM 
FRINT 
LINE INPUT 
IF W$="NONE" 
PRINT 


SPRINT 


PRINT UP STATEMENTS" 
PRINT UP CUSTOMER 
END) FROGRAM*" 


PLEASE P "sR 


A/R 


ACCOUNTS RECEIVABLES/NIAMO < CONT‘’D > 


CORRESPONDING YOUR SELECTION: " 


REPORT" 


Kk THIS SUB GENERATES THE BILLING LIST (#2) 


"WHICH ACCOUNT DO YOU WANT PRINTED ? * 
THEN 65000 


PRINT "THIS GENERATES THE INVOICE PRINTING." 
KEY WHEN THEY ARE IN PLACE —"? 


FRINT "PRESS 
LINE INFUT * ? 
LET Z=7 

FOR I=1 TO Zz 
PRINT 

NEXT I 

LET Z=18 
RESTORE 
FOR I=i TO 
LET Z2=65 
LET Z=S 
READ P$¢T)> 
IF P#¢(I)="END 


"9Z$ 


25 


DATA" 


“RETURN ’ 


THEN 4320 


READ NSC I) RECT) 9 S8$CI) xUCT) eUSCT)D 


IF Wé="ALL" 


THEN 3540 


IF LEFT#(N$(1I)73)<>LEFT$ (W923) THEN 3780 


PRINT TAB(Z+13)5P$¢(1) 


sWS 


eX UK G> << S$ of O PK F OK T oC WOK A SER OX E > 


PROGRAM NAME? ACCOUNTS RECEIVABLES/NIAMO < CONT’D > 


03560 
03580 
03600 
03620 
03640 
03660 
03680 
03700 


FRINT TABC(Z) »N$(T) 

PRINT TAB(CZ) »RS CT) 

PRINT TAB(Z) »S$(T) 

LET Z1=4 

FOR I3=1 TO 21 

PRINT 

NEXT I3 

REM xXx THIS IS TO SKIP DOWN TO THE STATEMENT SECTION OF TH 


E BILL. 


03720 
03740 
03760 
03765 
NT $* 
03770 


03780 
03800 
03810 
03815 
03818 
03819 
03820 
03840 
03850 
03851 
03852 
03853 
03854 
038355 
03860 
03865 
03900 
03920 
03940 
03945 
03950 
03965 
03980 


Z7=50 

PRINT TAB(43)3 "DATES "s3PRINT TABCZ7) ¢0% 

PRINT 

FRINT ° REF.#°s" INV#"sS" DESCRIPTION’ s "INV. DATE" » "AMOU 


PRINT ane sont 08 even seen et a en BM exec ssve cute cave cote cote cate seus cove sone sone ir ad eee ween sess aece sees cone sess ose Bg Be ce ee eae 


FOR Ii=1 TO 100 

READ ES¢(TI) 

IF E$(T>)="O"° THEN I1=I11-1:GOTO 3940 

READ NCI) vASCT) eo SCI) eo PCT) 

IF W$="ALL" THEN 3820 

IF LEFTS(N$( TD) x 3)<>LEFTS(W$23) THEN 3920 
Z2=3 

PRINT TAB(Z2)35 

PCT)=INT(C.St100KF(1))/100 


FRINT SCITDSNCTOF* "SESCLT) ASCII "$"9 
PRINT TABC61-LENCSTRSCINTCP CI) 9F CT) 
B2=B2+P C1) 

NEXT I1 

IF W$="ALL" THEN 3950 

IF LEFT#(N$(I)3)<>LEFTS(W$23) THEN 4240 
PRINT 

FRINT "DATE OF LAST PAYMENT 
FRINT “AMT. OF LAST PAYMENT 


"sU$(I) 
$"sUCT) 


i ii 


o~ if 


FROGRAM NAME! ACCOUNTS RECEIVABLES/NIAMO < CONT‘D > 


04100 B2=INT(.5+100kB2)/100 


04120 PRINT "TOTAL AMOUNT DUE = FOO $9 B25 dK 
20K" 

04125 PRINT *--------- nnn nnn 
04130 PRINT * THANK YOU ! IT’S A PLEASURE TO SERVE YOU. 
04140 Z5=9 


04160 FOR I6=1 TO ZS 

04180 PRINT 

04200 NEXT 16 

04220 REM KK THIS IS TO SKIP TO THE NEXT BILL HEAD 
04240 B1i=0 

04260 B2=0 

04280 B3=0 

04285 IF LEFT$(W$r3)="ALL* THEN 4300 

04290 IF LEFT$(N$(I)*3)=LEFT$(W$23) THEN 4320 
04300 NEXT I 

04320 Z=12 

04340 FOR I7=1 TO Z 

04360 PRINT 

04380 NEXT I7 


04460 GOTO 1460 

04480 REM THIS SUB GENERATES THE CUST. A/R REPORT #3 --eenrr nnn 
04481 PRINT tPRINT “THIS GENERATES CUSTOMER A/R REPORT." 

04482 PRINT "SET PAPER» FRESS ’SPACEBAR’ KEY WHEN READY." 

04483 FAUSE 

04484 PRINT * 


3 ~ 14 


FROGRA 


M NAME? ACCOUNTS RECEIVABLES/NIAMO < CONT‘’D > 


B1=0 

B2=0 

B3=0 

PRINT 3PRINT 

FRINT * CUSTOMERS ASR REPORT 


PRINT tFPRINT 
PRINT * ACC # "$" A/R $ "$"LAST PAY "$3" DATE 
PRINT * CUSTOMER NAME" 

FRINT iss caw seacticae teas s 3 Mi (casper apecaenvacen a ; OO cccanceeon Sansa ate’ sec mati nia ia a ; a scent iad Soe 
PRINT 8 ween . 

PRINT 

RESTORE 

FOR I=1 TO 25 

READ P$(I) 

IF P$(I)="END DATA" THEN 5040 


READ N$( I) es RECT) »S$¢(1)2UCT) USC TI) 
FOR Ii=1 TO 100 

READ E$(T) 

IF E$¢(I)="O0" THEN Ii=I1-1:GOTO 4920 
READ NCI) rASCI) e SCI) e PCT) 

T2=F (1) 

T2=INT(.S+100KT2)/100 

B3=B3+T2 

NEXT [1 

B3=INT(+5+100KB3)/100 

B1=Bi+k3 

B1=INT(.5+100KB1)/100 

REM 


REM LINES 49807498174982 &% 4983 GENERATE 
REM FRINTING ORDER ON FORM 


REM 
PRINT PS¢(I)3$ 


"ol 


PROGRAM NAME? ACCOUNTS RECEIVABLES/NIAMO < CONT‘D > 


04981 PRINT TABCIS-LEN(STR¢ (INT (BS) ))) B33 
04982 FRINT TAB(C25-LEN(STRSCINTCUCT)) >) 3UCI)$ 
04983 PRINT TABC30) sUS(1)5" "sNSCT) 

05000 B3=0 

05020 NEXT I 

05040 PRINT {PRINT {PRINT 

05120 FRINT “TOTAL ACCOUNTS/REC. = $"#B1 

05140 PRINT 


05165 PRINT tPRINT 
05170 PAUSE 

05180 GOTO 146460 

07385 REM ~-~~- nnn nnn nn 
07400 DATA "0480634", "APTED-HULLING / H.V. SCHOULTZ",y "11TH & LOCU 
ST"y"ST. LOUIS: MO 63101" 

07401 DATA 239.60» "03/20/78" 

07403 DATA "CCRC MEM. AP. FORM"» 30249 "12/30/77" 17403 136.62 

07406 DATA "C.0. 2 ADS "931412 "02/07/78" 17406953 .36 

07410 DATA "W.L. RESV. FORM" »31649 "02/14/78" 974109 26.16 

07414 DATA "W.L. 12 PAGE BROCH. "231949 "02/23/78" ¥74147187.29 
07422 DATA "C.0. CAMIEN CARD",3172» "02/16/78" »742296.8 

07424 DATA "2W PICNIC AD" s3199% "02/24/78" ¥7424136.62 

07426 DATA "WoL. WELCOME BROCH" 3213» "02/28/78" »¥7426712.56 

07428 DATA "2W GROUP PICNIC "932299 "03/08/78" »742897.85 

07429 DATA "C.0. PROGRAM BOOK *,3230% "03/08/78" »7429132.43 

07430 DATA "C.L. MISSOURI MAP "»3231»% "03/08/78" »7430136.62 

07431 DATA "C.L. ENERGY T/T = "9 3249» "03/14/78" »7431710.46 

07432 DATA "O.H. DINNER MENU "93259 "03/20/78" »74329130.79 

07433 DATA "O.H. COLONIAL RECIPIES" +3260, "03/20/78" »7433912.56 
07434 DATA "A.H. SCRIPT MONEY = "932619"03/20/78"7434712.56 
10401 DATA 78.49» "02/16/78" 

10403 DATA "AMS MARCH NEWSLETTER" » 3228» "03/08/78" »10403788.93 
10499 LATA "0" 

10500 DATA "0229269" » "EXECy INC./J.MESTMAN® 


3 - 16 


FROGRAM NAMEt ACCOUNTS RECEIVABLES/NIAMO «= CONT‘’D > 


10501 
10502 
10503 
10599 
649983 
64999 
65000 


DATA *1717 S. BRENTWOOD BLYD."»"ST. LOUIS, MO 63144* 
DATA O»°01/01/78" 

DATA “ISRAEL 30TH ANNIV" 23250 "03/14/78" 710503714.91 
DATA "0° 

DATA “END DATA" s"—"y9"—" 9 "=" Ort" 

DATA "END" sOr"-"90%0 

CNTRL 4/13END 


a <- i? 


FROGRAM NAME? PAYROLL/PARKER 


00010 REM FAYROLL/PARKER 

00100 FRINT CHR$(16) PRINT CHRS(22) 

00110 READ Z 

00120 DIM E(Zr14) 

00130 PRINT "PAYROLL PROGRAM FOR HEATHKIT" 
00140 PRINT 

00150 REM FROM KILOBAUD 

00250 PRINT "PAY PERION ENDING(M D Y)"S 

00260 INFUT MrT 

00270 FOR N=1TO Z 

00280 READ E(No1) sE(N910) rE (Ne 11) cEC N22) PE CNY 3) PE CNY 4) 
00290 IF E(N»4)=0 THEN 330 

00300 PRINT CHR$(22) 

00310 PRINT “EMP.NO."#(N+1000)2"HRS. PAID"S 
00320 INPUT ECNsS) 

00330 NEXT N 

00340 PRINT "CORRECTIONS" 

00350 INPUT A 

00360 IF A=0 THEN 430 

00370 FRINT “EMP. NO."? 

00380 INPUT A 

00390 LET N=A~-1000 

00400 PRINT "EMF «NO. "+ (Nt1000)9"HRS. PAID" S 
00410 INPUT E(N?S) 

00420 GOTO 340 

00430 FOR N=1TO Z 

00440 IF E(NxS)>40 THEN 470 

00450 LET E(Nr6)=E (Nx 4) XE (N25) 

00460 GOTO 480 

00470 LET E(Nr6)=E (N24) KE (NS) FE (NY 4) /2K (EC NYS) 40) 
00480 LET E(Ns6)=INT(CE(N? 6)K1004+.5)/100 
00490 LET E(Nr7)=INT(CE(N26)%- 0585) K1004+.5)/100 
00520 IF E(N»2)=0 THEN GOSUB 1100 

00530 IF E(Nr2)=1 THEN GOSUB 1200 

00540 LET E(N28)=INTCE (N28) k100+~.5)7100 
00550 LET ECNr9)=0 

00560 LET E(N214)=E (Nr 6)-E(Ne7)-ECNY8)-E CNY 9) 
00610 LET F=FtE(Nr7) 

00620 LET I=I+tE(N+8) 


3-18 


PROGRAM NAME? PAYROLL/FARKER < CONT‘D > 


00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00739 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01001 
01002 


LET L=L+E(Nr9) 

LET P=P+E(N214) 

IF ECNx4)=0 THEN 700 

IF E(Nr5)=0 THEN 700 

GOSUB 720 

PRINT "CONTINUE" ¢ 

INPUT 

NEXT WN 

GOTO 920 

PRINT CHR$(146)2FPRINT CHR#(22) 

PRINT "EMP «NO. "3 (Nt1000)% "DATE FMe LY 
CNTRL 196 

PRINT "SS"SE (Nr L)FECN 10) SECNe 11) "RATE" SECNY 4) 
IF ECNr2)=0 THEN GOSUB 880 

IF ECNr2)=1 THEN GOSUB 900 


PRINT 

PRINT TAB(10)¢ "FAY": "Y-T-D" 

PRINT "GROSS "SECN96) 

PRINT "F.I.C.A- "ZECNy7) 

PRINT "F.I.T. "sECN?S8) 

PRINT “STATE "SECN29) 

PRINT 9 meme a ’ 
PRINT "NET PAY" FECN214) 

RETURN 

PRINT "SINGLE"#E(N93)*"HRS."FECNYS) 
RETURN 

PRINT "MARRIED" 3E (N93) "HRS. "sE (NSS) 
RETURN 

FRINT "RECORD FILE COPY"; 

INFUT A 

IF A=O0 THEN 1300 


IF A>1 THEN 930 

FOR N=1 TO Z 

GOSUB 720 

NEXT WN 

GOTO 1310 

DATA 2 

DATA 1237456778 919295 
DATA 234956 7890919394 


FROGRAM NAME? PAYROLL/PARKER < CONT‘D > 


01003 DATA 333333r121917333 
01004 DATA 4444449171917444 
01005 DATA S5555ér1r191555 
01100 LET G=E(N:6)-(E(N23) 14.40) 


01110 IF Ge= 346 THEN E(N:8)=(G-346)%.36474.17 
01120 IF G« 346 THEN E(N98)=(6-279)%- 3454.07 
01130 IF Ge 279 THEN E(N28)=(G-240)k.26443.93 
01140 IF G« 240 THEN E(N28)=(G-183)%. 21431496 
01150 IF G« 183 THEN E(N28)=(G-115)k.23416.32 
01160 IF G= 115 THEN E(N?8)=(G-67)%.24+6+72 
01170 IF Ge 67 THEN E(N28)=(G-25)%.16 

01180 IF G= 25 THEN E(N28)=0 


01190 RETURN 
01200 LET G=E(Nx6)-(CE(Nr3)*14,.40) 
01210 IF Gr=500 THEN E(N?8)=(G-500)*. 364105. 33 


01220 IF G= 500 THEN E(N28)=(6-433)k.32+83.89 
01230 IF G= 433 THEN E(Ns8)=(G-346) x. 2845953 
01240 IF G« 346 THEN E(N?8)=(G—-264)k. 25439 .03 
01250 IF G« 264 THEN E(N28)=(G-173)%.17423.56 
01260 IF G« 173 THEN E(Nr8)=(G-96)%,. 248-16 
01270 IF G= 96 THEN E(N?x8)=(G-48)%.17 

01280 IF G« 48 THEN E(Nr8)=0 


01290 RETURN 

01300 PRINT CHR$(16)FRINT CHR#(22) 
01310 FRINT “PAYROLL SUMMARY FOR" #MsDsY 
01320 PRINT 

01330 PRINT "F.1I.C+As EMPLOYER" sF 
01340 PRINT "F.1I.C+A+ WITHHELD" oF 
01350 PRINT "F.I.T- WITHHELD" +I 
01360 PRINT "STATE WITHHELD" rh. 
01370 PRINT 

01380 PRINT "NET PAYROLL" +P 

01390 PRINT 

01400 PRINT “FAYROLL COST" s#P+Lt+1+(2%F) 
01410 PRINT 

01560 END 


< Het Uo Ge <€ § > O De F be 


FROGRAM NAME? 


TAX FROGRAM/NAIMO 


00001 PRINT * 


00100 REM TAX FROGRAM BY NICHOLAS NAIMO. 
00900 PRINT "1040 TAX FROGRAM$ MARRIED FERSONS FILING JOINTLY" 


01000 DIM T1(418)¥T2(4990) 


01010 REM -~ LIST TAXES AS FOLLOWS? 


R LIMIT 
01015 REM 
ENTAGE OF 
01020 REM 
OVER 
01025 REM 
R LIMIT. 
01030 REM 
01035 REM 


F.I.C.A- 


(1) LOWER TAX LIMIT 


(3) TAX AMOUNT 


IS @ LINE 40400 


01040 REM -~ FEDERAL TAX TABLE STARTS HERE? 


01100 DATA 093200200 

01200 DATA 3200742000914 
01300 DATA 420095200+140915 
01400 DATA 5200962001290 916 
01500 DATA 6200+72001450%17 
01600 DATA 7200%11200%620919 
01700 DATA 11200915200%1380%22 
01800 DATA 15200%19200% 2260725 
01900 DATA 19200+2320073260728 
02000 DATA 23200%27200%4380932 
02100 DATA 27200+312009546460736 
02200 DATA 31200%35200%7100739 


(2) UPPFE 


(4) PERC 


AMT. 


LOWE 


PROGRAM NAME? TAX FROGRAM/NAIMO < CONT’D = 


02300 DATA 35200%39200%8640742 

02400 DATA 39200%43200910340%45 

02500 DATA 43200747200712140748 

02600 DATA 472007552009140460%50 

02700 DATA $5200%67200918060953 

02800 DATA 672002792002 24420955 

02890 REM ~~ END FEDERAL TAX TABLE. 

02899 REM 

02900 REM -- LIST MISSOURI STATE TAX RATE BELOW: 
03000 DATA 071000709145 

03001 DATA 1000%2000%1572 

03002 DATA 2000%300073522-5 

03003 DATA 3000%400076093 

03004 DATA 40009500029073.5 

03005 DATA 5000260007125 74 

03006 DATA 6000%7000716574-5 

03007 DATA 7000800021095 

03008 DATA 8000290007 246095-5 

03009 DATA 900021000007 31596 

03010 REM --ENDI STATE TAX TABLE 

04100 FOR J=1 TO 18 

04200 READ TiCiyJ) eTiC2eJ)eT1iCSy J eT 4rd) 
04300 NEXT J 

04400 FOR J=1 TO 10 

04500 READ T2(1xJ)rT2¢22J) 9T2(39J) sT2C4ed) 
04600 NEXT J 

04700 DIM A4$(8>) 

04800 [TIM A640) 

04900 K1=60 

05000 REM ~ Mi IS THE MODE» M2 IS FIRST TABy M3 IS SECOND TAR 
OS100 REM ~- M4=SET PAPER SWITCH 

05200 M4=0 

05300 LET M2=40 

05350 LET M3=50 

05400 LINE INFUT "NEW OR OLD RUN? "“FALS 
05500 IF Als="NEW" THEN 6400 

05600 IF Ail$<>"OL0" THEN 5400 

05900 FOR J=1 TO K1 

06100 NEXT J 


PROGRAM NAME? TAX FROGRAM/NAIMO < 


06300 
06400 
06500 
064600 
06700 
06800 
06900 
07000 
07100 
07200 
07300 
07400 
07500 
07600 
07700 
07800 
07900 
08000 
08100 
08200 
08300 
EADY." 
08310 
08320 


08400 


GOTO 6800 

FOR J=1 TO Ki 

ACJI=0 

NEXT J 

GOTO 7400 

LINE INPUT "LIST OR UPDATE? 
IF A3$="LIST" THEN 8000 

IF A3$="UPDATE" THEN 7200 
GOTO 6800 

IF Al$="OLD" THEN 7700 

REM ~ M1=0 FOR UPDATING NEW 


CONT‘’DO > 


"SASS 


M1=0 

GOTO 8400 

REM ~ M1l=1 FOR UPDATING OLD 
M1=1 

GOTO 8400 

REM ~ M1=2 FOR LISTING ONLY 
M1=2 

IF M420 THEN 8400 

M4=1 

PRINT "SET UF AND READY LINE PRINTER. PRESS 
PAUSE 

PRINT *" 

J1=0 


“RETURN? 


08500 REM ~ UPDATE NEW OR LIST (SEQUENTIAL OFERATION) 


08600 


IF M1=1 THEN 8900 


WHEN R 


PROGRAM NAME? TAX FPROGRAM/NAIMO < CONT‘D > 


08700 GOTO 9100 

08800 REM ~ UPDATE OLD LOOF 

08900 INFUT “LINE? "3J4 

07000 IF J1=999 THEN 37300 

09100 REM ~- BEGIN CYCLING THRU THE FS 

09200 IF M1<>1 THEN 9350 

09300 IF Ji<>1 THEN 9900 

09350 PRINT 

09400 PRINT "001 NUMBER OF EXEMPTIONS" + TAR(M2)¢A(8) 
09500 IF M1=2 THEN 10000 

094600 INFUT AC8) 

09700 IF M1=1 THEN 8900 

09800 GOTO 10000 

07900 IF Jis>10 THEN 10500 

10000 FRINT "010 WAGES» SALARIES» TIFS*+TAB(M3~1)5"$"FAC1) 
16100 IF M1=2 THEN 10600 

10200 INPUT AC1) 

10300 IF M1=1 THEN 8900 

10400 GOTO 10600 

10500 IF Jig>12 THEN 11100 

10600 PRINT “O12 DIVIDENDS" »TABCM3) #AC2) 

10700 IF Mi=2 THEN 11200 

10800 INPUT AC2) 

10900 IF M1=1 THEN 8900 

11000 GOTO 11200 

11100 IF Ji<>14 THEN 11700 

11200 PRINT "014 INTEREST INCOME" » TAB(M3) ¢AC3) 
11300 IF M1l=2 THEN 11800 

11400 INPUT AC3) 

11500 IF M1=1 THEN 8900 

11600 GOTO 11800 

11700 IF Jit>1S THEN 12600 

11800 PRINT "O15 OTHER INCOME" »TAR(M3)#AC4) 
11900 IF M1=2 THEN 12700 

12000 INFUT A(4) 

12100 IF Mil=1 THEN 8900 

12200 LINE INPUT "DO YOU WANT TO DO BUSINESS CALC.? "s#A44% 
12300 IF A4$="NO" THEN 18700 

12400 IF A4$“>"YES" THEN 12200 


FROGRAM NAME? TAX FROGRAM/NAIMO «= CONT’D = 


12500 
12600 
12700 
12800 
12900 
13000 
13100 
13200 
13300 
13400 
13500 
13600 
13700 
13800 
13900 
14000 
14100 
14200 
14300 
14400 
14500 
14600 
14700 
14800 
14900 
15000 
15100 
15200 
15300 
15400 
15500 
15600 
15700 
15800 
15900 
16000 
16100 
16200 
16300 


GOTO 12700 
IF Jiss40 THEN 13300 
IF AC18)=0 AND M1=2 THEN 18700 


PRINT "040 GROSS INCOME ON BUS."»TAB(M2-1)5"°$"FAC18) 


IF M1=2 THEN 13400 

INFUT AC18) 

IF Mi=1 THEN 8900 

GOTO 13400 

IF Ji2>100 THEN 14200 

PRINT *100 MILES TRAVELED" »TABCM2!9AC17) 
IF M1i=2 THEN 13800 

INFUT AC17) 

IF M1i=1 THEN 8900 

C1=AC17)*.10 

PRINT "XXX MILEAGE EXPENSE" » TABCM2-1)5"$"5C1 
IF M1=2 THEN 14300 

GOTO 14300 

IF J1<>110 THEN 14800 

FRINT "110 FLANEr BUS» TAXI"»TARCM2)5AC19) 
IF M1i=2 THEN 14900 

INFUT AC19) 

IF Mi=1 THEN 8900 

GOTO 14900 

IF Ji22120 THEN 15400 

FRINT "120 ADVERTISING EXF."»TABCM2) #AC20) 
IF M1=2 THEN 15500 

INFUT AC20) 

IF M1=1 THEN 8900 

GOTO 15500 

IF J12>130 THEN 16000 

FRINT "130 OFFICE EXPENSES" »TABC(M2)sAC21) 
IF M1=2 THEN 16100 

INPUT AC21) 

IF M1=1 GOTO 8900 

GOTO 16100 

IF Ji<>140 THEN 146600 

FRINT *140 NEPRECTATION" » TABCM2) sAC22) 

IF Mi=2 THEN 16700 

INPUT AC22) 


Gi 
i 
to 
a 


PROGRAM NAME? TAX FROGRAM/NAIMO = CONT/’D > 


16400 
16500 
16600 
16700 
16800 
16900 
17000 
17100 
17200 
17300 
17400 
17500 
17600 
17700 
17800 
17900 
18000 
18100 
18200 
18300 
18310 
18400 
18500 
18510 
18600 
18700 
18710 
18800 
18900 
19000 
19100 
19200 
19300 
19400 
19500 
19510 
19520 
19600 
19700 


IF M1l=1 THEN 8900 

GOTO 146700 

IF Ji*>145 THEN 17200 

FRINT "145 REPAIRS" »»TABCM2) §AC 23) 

IF M1=2 THEN 17300 

INPUT AC23) 

IF M1i=1 THEN 8900 

GOTO 17300 

IF Jis>150 THEN 17800 

FRINT "150 TAX ON EQUIPMENT" » TAB(M2) AC 24) 

IF M1=2 THEN 17900 

INPUT A(24) 

IF M1=1 THEN 8900 

GOTO 17900 

IF J1i*>160 THEN 19000 

PRINT "160 JOURNALS ANDI MAG+"»TARCM2) ¢AC25) 

IF M1=2 THEN 18300 

INFUT AC25) 

IF Mil=1 THEN 8900 

ACBSIAACLT ZK LOFACIPIFAC2OIFAC2ZLIFAC22) A023) 4A 24) 4+A025) 
AC35)=INT(.S+100KA( 35) )/100 

FRINT "kX TOTAL EXPENSES" »TABRCM2~1)5"$"FAC3S) 
AC36)=A(18)-AC35) 

AC36)=INTC.S4t100KA(36) 7/100 

PRINT "kk NET BUSINESS INCOME" » TAB(M3~-1)5"$"FA(36) 

ACS BACLT IFAC2)4AC3) +AC 4) +A034) 
ACS)=INT(C.St1lOOKACS) 1/100 
PRINT "kx TOTAL INCOME" »TABCM3) #ACS) 

GOTO 19100 

IF J1<250 THEN 20300 

FRINT "050 ALNJUSTMENTS TO INCOME" » TABCM3) FACS) 
IF Mi=2 THEN 19500 

INPUT A646) 

IF Mil=1 THEN 8900 

AC7)IF=ACSI-ACS) 

AC7)=INTC.St100KA(7))/100 

IF AC7)<=0 THEN 28200 

FRINT "XXX ADJUSTED GROSS INCOME" » TAR(CM3~1)5"$"FAC7) 
PRINT 


PROGRAM NAME? TAX FROGRAM/NAIMO <= CONT’D = 


19800 IF Mi<>0 THEN 20400 

19900 LINE INPUT "WANT TO ITEMIZE DEDUCTIONS? "sA4$ 
20000 IF A4$="NO" THEN 24800 

20100 IF A4$e>"YES" THEN 19900 

20200 GOTO 20400 

20300 IF Ji<>200 THEN 20900 

20400 FRINT "200 MEDICAL INSURANCE" » TAB(M2-1)9"$"FAC40) 
20500 IF M1l=2 THEN 21000 

20600 INPUT AC40) 

20700 IF M1=1 THEN 8900 

20800 GOTO 21000 

20900 IF Jis>210 THEN 21500 

21000 PRINT "210 MEDICINE & DRUGS", TABCM2) #AC41) 
21100 IF M1=2 THEN 21600 

21200 INPUT AC41) 

21300 IF M1=1 THEN 8900 

21400 GOTO 214600 

21500 IF Jile>220 THEN 23400 

21600 FRINT "220 OTHER MEDICAL EXPENSES" »TAB(M2)¢AC42) 
21700 IF M1l=2 THEN 22000 

21800 INFUT AC42) 

21900 IF Mi=1 THEN 8900 

22000 Ci=AC41)72 

22100 IF C1150 THEN C1=150 

22200 C2=A(7)xk.01 

22300 C3=A(41)-C2 

22400 IF C320 THEN C3=0 

22500 C4=A(40)-Ci1 

22600 CS=C3+AC40)-C1itAC42) 

22700 C6=AC7)kK,03 

22800 C7=C5-C4 

22900 IF C70 THEN C7=0 

23000 AC43)=C1+C?7 

23010 AC4S3)=INTC.St100KA(43) 9/100 

23100 FRINT “*Xx MEDICAL DEDUCTION" » TARCM2) FAC 43) 
23200 IF M1=2 THEN 23500 

23300 GOTO 23500 

23400 IF J12>240 THEN 24000 

23500 FRINT "240 STATE AND LOCAL TAX" »TABCM2) FAC44) 
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PROGRAM NAME? TAX FROGRAM/NAIMO < CONT‘D > 


23600 
23700 
23800 
23900 
24000 
24100 
24200 
24300 
24400 
24500 
24600 
24700 
24800 
24900 
25000 
25100 
29200 
25300 
29400 
25500 
25600 
25700 
25800 
25900 
26000 
26100 
26200 
26300 
26400 
26500 
26600 
26700 
26800 
26900 
26910 
27000 
27300 
27310 
27400 


IF Ml=2 THEN 24100 

INPUT A(44) 

IF M1i=1 THEN 8900 

GOTO 24100 

IF J12>250 THEN 24400 

FRINT "250 OTHER TAXES" »TABCM2) #AC4S) 

IF M1l=2 THEN 24700 

INFUT AC4%5) 

IF M1l=1 THEN 8900 

GOTO 24700 

IF J1l#>260 THEN 25200 

FRINT "260 INTEREST EXPENSE" »TABCM2) #A( 44) 
IF M1l=2 THEN 25300 

INFUT AC46) 

IF Ml=1 THEN 8900 

GOTO 25300 

IF Ji22270 THEN 25800 

FRINT "270 CONTRIBUTIONS" »TABCM2) §AC47) 

IF M1=2 THEN 25900 

INPUT AC47) 

IF Mi=1 THEN 8900 

GOTO 25900 

IF J1l2>280 THEN 26400 

FRINT "280 CASUALTY OR THEFT" »TARCM2) 'AC48) 
IF Mi=2 THEN 26500 

INFUT AC48) 

IF M1l=1 THEN 8900 

GOTO 26500 

TF J122290 THEN 29200 

FRINT "290 MISC DEDUCTIONS" »TABCM2) §AC49) 
IF M1=2 THEN 26900 

INFUT AC49) 

IF M1=1 THEN 8900 
ACSOFACAZIFAC4 4 FACASDFAC4SGIFACAZITAC4IB)FACA4D) 
ACSO)=INTC.S+100KA(S50))/100 

PRINT "Xk ITEMIZED DEDUCTIONS" » TABCM3-1) 9 "S$" FACSO) 
AC9)=3200 

ACPI=INTC.St1LOOKAC9) 2/100 

PRINT "XXX ZERO BRACKET AMOUNT" » TABCM3) FAC9) 


PROGRAM NAME: TAX PROGRAM/NAIMO <= CONT‘’D > 


27500 IF AC9)2AC5S0O) THEN 27900 

27600 FRINT “xXkx EXCESS ITEMIZED DEDUCTIONS USED" 
27700 AC9)=ACSO)-ACP) 

27800 GOTO 28000 

27900 FRINT "xxx ZERO BRACKET AMOUNT USED" 

27910 AC9)=0 

28000 AC10)=A(8) 750 

28010 AC10)=INTC.5S+100KAC10))/100 

28100 FRINT "Xxx STANDARD EXEMPTION" » TABCM3) §AC10) 
28200 AC11)=A(7)-AC9)-AC10) 

28210 AC11)=INT(C.S4+100kKAC11))7100 

28220 IF AC11)<0 THEN AC11)=0 

28300 PRINT "kk TAXABLE INCOME" » TABCM3-1)9"$"FAC11) 
28400 PRINT 

28500 REM —- TAX CREDITS 

28600 C1=35xA(8) 

28700 C2=(AC11)-3200)*.02 

28800 IF C2>180 THEN C2=180 

28900 IF C2#C1 THEN C2=C1 

28910 C2=INT(.5+100kC2)/100 

28920 IF AC11)=0 THEN C2=0 

29000 PRINT "kk GENERAL TAX CREDIT" » TABCM3~1)9"$"9C2 
29100 GOTO 29300 

29200 IF J1“2>86 THEN 30800 

29300 FRINT "086 OTHER TAXES OWED" »TABCM3) FAC12) 
29400 IF M1l=2 THEN 29700 

29500 INFUT AC12) 

29600 IF M1l=1 THEN 8900 

29700 Gi=AC11>) 

29800 GOSUB 38700 

29900 AC29)=T1-C2 

29910 AC2PI=INTC.St1LOOKAC29) 7100 

29920 IF AC11)=0 THEN AC29)=0 

30000 FRINT "Xk FEDERAL TAX"»TABCM3) FAC29) 

30100 GOSUB 40400 

30200 A(30)=T3 

30210 AC3O)=INTC.S5+100KA( 30) 1/100 

30220 IF AC11)=0 THEN A(30)=0 

30300 FRINT "Xk F.T.C+A+ "2 TABCM3) FAC3O) 


PROGRAM NAME? TAX FROGRAM/NAIMO < CONT‘D > 


30400 
30410 
30420 
30500 
30600 
30700 
30800 
30900 
31000 
31100 
31200 
31300 
31400 
31500 
31600 
31700 
31800 
31900 
32000 
32100 
32200 
32300 
32400 
32500 
$2510 
32600 
32700 
32800 
32900 
32910 
33000 
C1 
33100 
33200 
33210 
TAX" 
$3220 
33230 
33300 


Us< G> < S$ 4 O F4 F FX Tot WBS A OK R OX E > 


AC13)=A(29)+4AC12)4A(30)-C2 
AC13)=INT(.5+100KA(13))/100 

IF AC11)=0 THEN A(13)=A(12) 

PRINT "kkk TOTAL FEDERAL TAXES OWED" »TAR(M3—1)3"$"A(13) 
PRINT 

GOTO 30900 

IF Ji<>90 THEN 31400 

FRINT "090 FEDERAL TAX WITHHELD" » TABCM3-1)5"$"FAC14) 
IF M1=2 THEN 31500 

INFUT A(14) 

IF M1=1 THEN 8900 

GOTO 31500 

IF Ji<>95 THEN 32000 

PRINT "09S ESTIMATED TAX FAYMENTS"»+TAB(M3) #AC15) 
IF M1=2 THEN 32100 

INFUT AC15) 

IF M1=1 THEN 8900 

GOTO 32100 

IF J12>97 THEN 33700 

PRINT "097 F.I.«CeA+ WITHHELD" » TABCM3) A027) 

IF M1l=2 THEN 32500 

INFUT A(27) 

IF M1=1 THEN 8900 

ACLS) =ACLS)+A614)4A027) 
AC146)=INTC.S54+100KA(16))/100 

PRINT "Xxx TOTAL TAX FAYMENTS"» TAB(M3-1)5"S"5AC16) 
PRINT 

C1=A(146)-AC13) 

IF Ci<0O THEN 33300 

IF AC(16)>0 THEN 33210 

FRINT "KKK IRS OWES YOU seer eee ervesereeresee "9 TARCMS—-1)5"H" 


FRINT 
GOTO 33800 
PRINT "xxx YOUR LOSS IS MORE THAN YOUR INCOME"»TAB(M3)» "NO 


IF AC16)2AC13) THEN 33000 
GOTO 33800 
C1=ABS(C1) 
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FROGRA 


33310 
33400 
C1 

33500 
33600 
33700 
33800 
33900 
34000 
34100 
34200 
34300 
34400 
34500 
34600 
34700 
34800 
34900 
34910 
34940 
35010 
35100 
35200 
35300 
35400 
35410 
35500 
35510 
35600 
35700 
35800 
35900 
35950 
35960 
36000 
36100 
36200 
36250 
36300 


M NAME? TAX PROGRAM/NAIMO < CONT‘D > 


C1=INT(.5+100%C1)/100 
PRINT "KKK YOU QUE IRSsssesseeeeeeeereeveee PF TARCMS-1) FS °F 


PRINT 

GOTO 33800 

IF Jis>98 THEN 34300 

FRINT "098 MISSOURI TAX WITHHELD" » TABCM3-1)5"$"FAC28) 
IF M1=2 THEN 34400 

INPUT AC28) 

IF M1i=1 THEN 8900 

GOTO 34400 

IF Ji<>93 THEN 37100 

PRINT "093 MISSOURI ESTIMATED PAYMENTS" » TAB(M3) #AC32) 
IF Mi=2 THEN 34900 

INPUT AC32) 

IF Mi=1 THEN 8900 

REM ~ MISSOURI STANDARD DEDUCTIONS 

C1=(AC8)~2) k40045600 

C1i=INT(.5+100kC1)/100 

Gi=A(7)-Cl1 

GI=INT(.5+100kG1)/100 

PRINT "XXX MISSOURI STANDARD DEDUCTIONS" »TABCM3) #C1 
PRINT "*kk MISSOURI TAXABLE INCOME" » TAB(M3) +61 
GOSUB 39600 

AC31)=T2 

AC31)=INTC.5S4+100KA(31))7100 

AC33)=AC32)4AC28) 

AC33)=INTC.S+100KA(33) > 7100 

PRINT "XxXk TOTAL MISSOURI TAX PAID" »TABCM3) #A033) 
PRINT "kkk TOTAL MISSOURI TAX OWED" »TABCM3) #AC31) 
C1=A(33)-ACS1) 

IF Ci>0 THEN 36200 

C1=ABS(C1) 

C1=INT(.S+100%C1)/7100 

PRINT "kk OWE MISSOURI TAX"»TABCM3-1)9"$"9C1 
GOTO 34300 

CLI=INT(.S+100kC1)/100 

PRINT "*kxX REFUND MISSOURI TAX"»TABCM3-1)9"$"9C1 
FRINT SPRINT ?PRINT 


a ~ Si 


FROGRAM NAME? TAX PROGRAM/NAIMO < CONT‘’D > 


36380 
36390 
36400 
36480 
36490 
36500 
36580 
36590 
36600 
36700 
36780 
36790 
36800 
36900 
37000 
37100 
37200 
37300 
37400 
37500 
37600 
37900 
38100 
38300 
38400 
38500 
38600 
38700 
38800 
38900 
39000 
39100 
39110 
39200 
39300 
39400 
39500 
394600 
39700 


P1=AC13)/AC7)X100 

PL=INTC+S+1O0OxXP1)/100 

PRINT "XxX FEDERAL TAX % OF INCOME" » TABCM3) »F1 
P2=A(31)/AC7)K100 

P2=INTC+St100KF2)/100 

PRINT "kX MISSOURI TAX % OF INCOME" » TAR(M3) »P2 
P3=A(30)/AC7)K100 

P3=INTC.St100KF3)/100 

PRINT "Xxx F.I.C.As % OF INCOME" » TABCM3) oP 
T3=ACLI3)+AC31)4AC30) 

P4=T3X100/AC7) 

P4=INT(.S+100KF4)/100 

PRINT "*Xk TOTAL TAX % OF INCOME" »TABCM3) »F4 
PRINT ¢PRINT ¢FPRINT 

IF M1<>1 THEN 37300 

PRINT “LINE NO."$J1s"NOT RECOGNIZED" 

GOTO 8900 

IF Mi=2 THEN 41400 

LINE INFUT "DO YOU WANT TO SAVE RESULTS? "sA4% 
IF A4$="NO" THEN 38300 

IF A4$<>"YES" THEN 37400 

FOR J=1 TO K1 

NEXT J 

LINE INPUT "00 YOU WANT A LISTING? "sA4% 

IF A4%="NO" THEN 41400 

IF A4$<>"YES" THEN 38300 

GOTO 8000 

REM - ACTUAL CALCULATION SUBROUTINE 

REM ~- FEDERAL TAX CALCULATION 

FOR J=1 TO 18 

IF Gi>T1¢2*J) THEN 39300 
TL=T1C3eJ04+¢G1-T1 C1 J KTI C4 IK. O1 
TL=INTC.S+100KT1)7100 

GOTO 39500 

NEXT J 

FRINT "AMOUNT NOT IN FED TAX TABLE“ »Gi 
RETURN 

REM ~- STATE TAX CALCULATIONS 

FOR J=1 TO 10 


CHC Ur G> ¢€ GS >< OFM F OK T PK WOK A OK R OC E 
Nw 

FROGRAM NAME? TAX FROGRAM/NAIMO =< CONT‘D > 

39800 IF GisT2¢2»J) THEN 40100 

39900 T2=T2(39J)4(GI-T2¢1 9S) KT2047 Ik. 01 

39910 T2=INT(.5+100kKT2)/100 

40000 GOTO 40300 

40100 NEXT J 

40200 PRINT "AMOUNT NOT IN MISSOURI TAX TABLE" »G1 

40300 RETURN 

40400 REM ~ F.I.C.A. CALCULATION 

40500 G1i=A(1) 

40600 IF G1i>16500 THEN G1=16500 

40700 T3=G1*.059 

40710 T3=INT(.5+100KT3)/100 

40720 IF 1T32965.25 THEN T3=965.25 

40800 IF G1=16500 THEN RETURN 

40900 G2=G1tA(36) ew 

41000 IF G2>16500 THEN G2=16500 

41100 G2=G2-G1 

41200 T3=T3+G2x.079 

41210 T3=INT(.S5+100KT3)7100 

41220 IF T3>965.25 THEN T3=965.25 

41300 RETURN 

41400 LINE INFUT "WANT ANOTHER RUN? “¥A4% 

41500 IF LEFT#(A$*1)="Y"THEN 41700 

414600 STOP 

41700 A1$="O0LD" 

41800 GOTO 6800 

41900 END 
ou 
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PROGRAM NAME? PAYROLL /? 


00001 DIM T1100) 

00010 REM [a”OOOOOOOOOOKKKK HEATH COMPANY PAYROLL OOOO OOROOOKKXK 
xX 

0001S REM OOOO OOOO OO OOOO OOK 
KX 

00020 REM 

00030 FRINT "ENTER THE DATE (EX. 3/18/78) "3 

00035 LINE INPUT #D% 


00040 PRINT "COMMANDS? 1. FRINT CHECKS AND RECORDS (WITH UFT 
ATING)* 

00045 PRINT * 2+ FRINT REPORTS ONLY" 

00050 PRINT * 3. PRINT EMPLOYEE INFORMATION" 


00060 PRINT ?INFUT “COMMAND = "$07 

00070 IF C7=54 THEN 2000 

00080 IF C7=1 THEN 120 

00090 IF C7=2 THEN 1000 

00100 IF C7=3 THEN 800 

00110 GOTO 40 

00120 INFUT "HOW MANY HOURS IN FAY PERIOD? "$H 

00130 FOR X=1 TO Ni 

00140 H(X)=HiT1(X)=0 

00150 IF F1i(X)=1 OR F1(X)-100=1 OR F1i(X)-110=1 OR F1(X)~10=1 THEN 
$=1 

001460 IF S=1 THEN H(X)=63S=0 

00170 NEXT X 

00180 FRINT :INPUT “EMF. NO. THOSE WORKING OTHER HRS. OR LESS THA 

N FULL WEEK? "#Z1 

00190 IF Z1=0 THEN 250 

00200 Z1=Z1-1003IF Zi>Ni OR Zi<1 THEN PRINT “ILLEGAL NO...TRY AGA 
IN! "*$GOTO 180 

00210 A$="HOURS"SIF Fi¢Z1)=1 OR F1i(Z1)-100=1 OR F1i(Z1)-110=1 OR F 
1¢Z1)-10=1 THEN A$="DAYS" 

00220 PRINT ¢PRINT ¢{PRINT N#(Z1)3* EMF.NO."$Z14+1003 "HAS WORKED HO 

W MANY "SASS"? “S3INFUT H(Z1) 

00230 GOTO 180 

00250 PRINT ¢PRINT {INPUT “ENTER EMF. NO. OF THOSE REPORTING TIFS 
"9X 

00255 X=X-1003IF X=-100 THEN GOTO 300 

00258 IF X>N1 OR X<1 THEN FRINT “INVALID“ NO...TRY AGAIN! "GOTO 25 

0 
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PROGRAM NAME FAYROLL/? 


00260 PRINT tFRINT "EMF.NO."$X+1009" "#N$(X)#" REPORTS HOW MUCH I 

N TIPS? ($* INTC CH(X)&.66%100)+.501)/1003 

00261 PRINT ") $*#$INPUT T1(X) 

00270 T1(X)=INT( (TIX) K100) 4.501) /1008IF T1(X)=INT(CH(X)&.66K100) 

+.501)/100 THEN GOTO 250 

00280 PRINT "SHOULD REPORT $"#INT((H(X)*,66k100)+.501)/1005 "CHECK 

BEING HELD FOR "$N$(X)#" NO."#X+100 

00283 PRINT TAR(13)$"----- "$TARCI9) § 8a nnn nn . 

00285 POKE 820171123PAUSE 1000$POKE 8201,72503PRINT "DO YOU WISH T 

O RE-ENTER AND ADJUST TIFS? " 

00290 LINE INFUT #Y$ 

00295 IF LEFT$(Y¥$s1)="Y" THEN 260 

00296 IF LEFT$(Y$r1)="R" THEN 298 

00297 H(X)=0T1(X)=0GOTO 250 

00298 INFUT "RE-ENTER TIPS"#T1(X) 

00299 GOTO 250 

00300 PRINT "LINE UP CHECKS IN PRINTER AND HIT ‘RETURN’ KEY." 

00310 LINE INFUT #B9$ 

00315 PORT= ~252 

00320 FOR X=1 TO Ni 

00330 IF N$(X)=E8% THEN 495 

00340 GOSUB 5008G(X)=G4G(X) F(X) =F+F (CX) £91 (X)=S14S1 (X) SPX) PHP OX 

)$T2CX)=TLCX)4+T2(X) 

00345 G8=G8+G!T8=T8+T1tF8=F8+tF tS8=S8+S 1 sMB=MBtP 

00350 M$="HOURS"tIF S=1 THEN M$="DAYS" 

00360 IF G=0 THEN 490 

00370 PRINT tFRINT "YOUR COMPANY CHECK" #TAB( 40) s1$ 

00371 PRINT N#(X)#TAB(403 INTC ((G~CFESLFPETL(X) 100) +.501)/100 

00380 PRINT M#s"NET WAGES"? "GROSS WAGES" 

00390 PRINT H(X)yINT(((G~(FASLEPETL CX) ))*100)+6501)/100» INT( (GK10 

0)+.501)/100 

00400 PRINT tPRINT "ST.TX"s"FED.TX."/"FICA"s "TIP DED"SPRINT Sir» 

PyT1(X) 

00410 PRINT tPRINT "TOT.ST."9"TOT.FED. "9 "TOT.FICA"? "TOT. TIP" $PRIN 

T S10X) oF CX) oP CX) pT2CX) 

00420 PRINT "GROSS EARNINGS FOR THE YEAR = $"#G(X) 

00490 NEXT X 

00495 PORT= ~250 
:T 


SFRINT {PRINT sFRINT :GOTO 1000 
00500 M=03S=0;T=03 


IF F1i¢X)>20 THEN M=1 
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PROGRAM NAME? PAYROLL/? < CONT‘’D > 


00503 IF Fi(X)=10 OR F1(X)=11 OR F1(X)-100=10 OR F1(X)-100=11 THE 
00510 IF Fi¢X)=1 OR F1(X)-100=1 OR Fi(X)-110=1 OR F1(X)-10=1 THEN 
00520 H=H(X)2IF H(X)>40 THEN H=404INT(((CH(X)-40)K1.5K100)4.501)/1 


00530 G=INT( (R(X) *HK100)+.501)/100 

00540 G1=INT(((G~(D0X)*14.4))k100)+.501)/100LIF M=1 THEN 600 
00550 IF G1i<33.01 THEN F=0 

00555 IF Gi>33 AND Gi<76.01 THEN F=((G1-33)*.16) 

00560 IF Gi>76 AND Gi<143.01 THEN F=6.88+((G1-76)*.18) 

00565 IF Gi>143 AND G1i<182.01 THEN F=18.94+((G1-143)x,. 22) 
00570 IF Gi>182 AND G1<220.01 THEN F=27.52+((G1-182)%,.24) 
00575 IF Gi>220 AND G1<297.01 THEN F=36.64+((G1-220)*. 28) 
00580 IF Gi>297 AND G1i<355.01 THEN F=58.20+( (G1-297)x*.32) 
00590 IF Gi>35S THEN F=75.76+¢((G1-355)*.36) 

00595 GOTO 650 

00600 IF Gi<61.01 THEN F=0 

00605 IF Gi>é1 AND G1i#105.01 THEN F=(G1-61)*.15 

00610 IF G1i>105 AND Gi#223.01 THEN F=6.6+((G1-105)*.18) 
00620 IF Gi>223 AND Gi<278.01 THEN F=27.84+((G1-223)x,22 
00625 IF Gi>278 AND G1<355.01 THEN F=39.94+((G1-278)x*.25) 
00630 IF Gi>355 AND G1i<432.01 THEN F=59.19+((G1-355) x, 28) 
00640 IF Gi>432 AND G1<509.01 THEN F=80.75+((G1-432)x,.32) 
00645 IF G1i>509 THEN F=105.39+((G1-509)k.36) 

00650 F=INT((FX100)4+.501)/100 

00665 REM ADD $15 FED TAX TO ESTELLE BARBEL 

00670 S1=(G~(I(X)*28.85))k.046¢IF S10 THEN $1=0 

00680 S1=INT((S1k100)4+.501)/1003F=INT( (Gk.0605*100)4+.501)/100 
00685 IF X=1 AND G>25 THEN F=INT( (CF +15)100)+.501)/100 
00690 RETURN 

00800 PRINT *PRINT ¢PRINT t{PRINT "LINE UF PAPER AND HIT ‘RETURN’ 


00805 LINE INPUT #89 

00810 FORT= -252 

00820 FRINT TAB(IS)s"E MPLOYEE INFORMATION ¢ 
HEATH CO.) "sh 

00830 FRINT :FRINT “NAME"$TAR(25)3 "EMP .NO."$TAB(35) 3 "EXEMPTIONS "3 
TAB(47)3 "RATE" $ TAB(S6) $ "FLAG" 

00840 PRINT 
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FROGRAM NAMES PAYROLL/? < CONT’D = 


00850 FOR X=1 TO Ni 

00860 IF N$(X)=F8$ THEN FORT= -250%F RINT $PRINT $PRINT +GOTO 40 
00870 PRINT N$(X)$TABC25) #X4+1005 TABC 3S) F00X) §TABC 47) #ROX) FTABRCSG) 
gF 1X) 

00880 FRINT :NEXT X 

00890 FRINT {PRINT ¢PRINT $PORT= -250:GOTO 40 

01000 PRINT tPRINT tPF RINT "LINE UF PAPER IN PRINTER AND HIT “RETU 
RN’ KEY "3 

01010 LINE INFUT #B9% 

01020 PORT= -252%PRINT TABCIS)s"E MPLOYEE INFORMA T 
I O N*sD$ 

01030 PRINT ¢PRINT 

01040 PRINT "NAME"$TAB(20)3 "EMF. "#TABC25)3"FED.TX."#TABC 35) 9 "TTLs 
FED" TABC4S) ¢"ST.TX"# TABCSS) 

01050 PRINT "TTL.ST."$TAB(65) 3 "FICA"#TABC75) §"TL«FICA* #TARC8S) 6° T 
IF" TAR(9S) $"TLe«TIF" § TABC1OS) § "DA/HRS" + TABCI1S) § 

01060 PRINT “WAGES"$TAB(123)5"TL.WGS. " 

01070 F3=O03F4=02F5=02F6=0193=03S4=01S5=0256=02T3=0' T4202 TS=02 T4620 
$M3=02M4=03MS5S=03M46=0 

01080 G3=03G64=0!G65=03G66=0;FRINT 

01090 FOR X=1 TO Ni 

01100 GOSUB 500 

01110 IF N#(X)=B8$ THEN 1200 

01120 FRINT N&(X)$TABC20) #X4100% TABC 25) $F § TABC 3S) #INTC CF (CX) 100) 4+ 
©501)/1003 TAB( 45S) §S19TABCSS) FINT((S1(X)K100)+.501)7100% 

01122 PRINT TAR(65) $F 5 TABC75) INTC CP CX) K100)+.501)/1005 TAB( 85) ¢T1 
CX) §TABC9OS) FINT( (T20X)K100)4.501)/10038 

01130 PRINT TAB(105) 3H(X) §TABC115) $65 TAB(123) 9INTC (G(X) K100)+-.501 
»/100 

01140 FS=INT(F)4F53F6=F64+(F-INTCF) ) $S5=SS+tINT(S1) $S6=S6t(S1-INT(S 
1) $TS=TSFINT (TLCX) 8 T6=T44C TL CX) -INTOTICX) )) 

O1150 MS=INT CP) 4M52M6=M64+(F-INTCP) ) $G5S=INT (G5) +G62G6=G6+(G~-INT(G)) 
01190 NEXT X 

01200 FORT= ~250?%PRINT tFRINT ¢PRINT {PRINT "LINE UF NEXT PAGE AN 
DQ HIT “RETURN? * 

01210 LINE INFUT #89 

01215 FORT= ~252 

O1217 F3=F3+INTCFS) {FP 4=F 44 (F8~-INT CFS) ) $S3=S3+INT(S8) $S4=S4+(S8-IN 
T(S8))8T3=T3tINT(T8) 3 T4=T44+(T8-INTCTS8) ) 

01218 M3=INT (M8) $M4=M4+(MB-INTCMB) ) $G3=G3+INT (G8) $G64=G44+(G8-INT(G 
8)> 


a Se 


PROGRAM NAME? PAYROLL /? 


01220 PRINT ¢PRINT {PRINT SPRINT TAR(I1S)¢3"E MPLOYER R&C 
ORD "SI$ 

01230 FRINT $PRINT $FRINT #TAB(20)3"F OR P E.R £ OG 

01240 PRINT SPRINT "FED.TAX"*"ST.TAX"»"FICA"s "TIP DED" » "WAGES" {FPR 
INT 

01250 A=INT(F3)+INT(F4) $R=INT( ((F4-INTCF4) )X100)+.501) $F RINT ASCH 

R$(8)F3GOSUB 1400 

01260 A=INT(S3)+INT(S4) {B=INT( ((S4-INT(S4) )k100)+.501) {PRINT ASCH 
R$(8)s2GOSUB 1400 

01270 A=INTCM4)+INT(M3) 2B=INT(CCM4—INT (M4) )X100)+.501)$P RINT ASCH 

R$(8)¢3GOSUB 1400 

01280 A=INT(T3)+INT(T4) $B=INT( ((T4-INT(T4) X100)4+.501) PRINT ASCH 

R$(8)*3GOSUB 1400 

01290 A=INT(G3)+INT(G4) 2B=INT( ((G4-INT(G4) )*100)+.501) fF RINT ASCH 

R$(8)*%$GOSUB 1420 

01300 PRINT SPRINT $PRINT TAB(17)5"F OR WEEK * 

01310 PRINT 3PRINT "FED. TAX" “ST.TAX"» "FICA"s "TIF DED" » "WAGES" {FR 
INT 

01320 A=INTCFS)+INTCFS6) $B=INT (CCF S6—INTCF 6) )K100)4+.501) PRINT ASCH 

R#(8)s3GOSUB 1400 

01330 A=INT(SS)+INT(S6) $B=INT( ((S6~INT(S6) )*k100)+.501) $F RINT ASCH 
R$(8)%?GOSUB 1400 

01340 A=INT(MS) FINTCMG) SB=INT CC CM6—INT (M6) )K100)4+.501)3FP RINT ASCH 

R$(8)+3GOSUR 1400 

01350 A=INT(TS)+INTCT6) SB=INT (CCC T6-INT(T46) )100)+.501) SPRINT ASCH 
R$(8)5$GOSUB 1400 

01360 A=INT(GS)+INT(G6) 2B=INT(((G46—-INT(G6) )*100)4+.501) PRINT ASCH 
R$(8)%3GOSUB 1420 

01370 PORT= -2503PRINT iPRINT tFPRINT tFRINT sFRINT i:GOTO 40 

01400 IF Be10 THEN PRINT "."sBSCHRS(8) SCHR$(8) SCHRS (8) SCHRE(B)F". 
O"» RETURN 

01410 IF B>9 THEN FRINT BSCHRS(8) sCHR$(8) $CHRS (8) FCHRE(B)5". "e SRE 
TURN 

01420 IF B>9 THEN PRINT Bs CHR$ (8) sCHRE (8) FCHRS (8) SCHRS(B)5"."IRET 
URN 

01430 IF Be10 THEN FRINT "."#B#CHR$(8) #CHR$(8) FCHRS (8) FCHRS(B)5", 
O"3RETURN 

01999 REM SUB TO ENTER INITIAL EMPLOYEE DATA 

02000 N1=90 
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FROGRAM NAME? PAYROLL/? <= CONT’D = 


O2010 DIM FCNL) rS1¢(N1) 9GONL) » TLONL) » T20NL) xHONLT) ¢NSCN1) x ROND) Po DON 
L)»F1(N1) 

02020 FOR X=1 TO 30 

02030 PRINT “NAME= "$iLINE INFUT #N$(X) 
02040 INPUT “EXEMPTIONS= “"sI(X) 

02050 INPUT "RATE= "#R(X) 

02060 INPUT "FLAG="sF1¢X) 

02070 NEXT X:GOTO 40 

02499 REM SUB TO CLEAR VARIABLES 

02500 FOR X=1 TO 30 

O2510 F(X) =OfS1L(X)=O8GCX)=OLF CX) H=OTTICX) =O8 TACK) BOTH (XD =O 
02520 NEXT X 

02530 GOTO 40 

02999 REM SUB TO ENTER YEAR TO DATE FIGURES 
03000 FOR X=1 TO SO 

03010 PRINT N&(X)¢" "F"GROSS=" 

03020 INFUT G(X) 

03030 INPUT "“FICA = "#F¢X) 

03040 INPUT "FED.TAX = "$FCX) 

03050 INPUT “STATE TAX= *#S1(¢X) 

03060 INFUT "TIFS= "sT2¢X) 

03070 NEXT X 
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FROGRAM NAME? RECORIIS/DACEY 


00005 REM RECORIS BY FRANK DACEY/328 BARBARA DR. FOINT FLEASANT>» 
NJ 08742 

00006 REM 201 899 4302 

00007 REM HUG 

00010 DIM AC12)9B(12) 90612) e012) EC 12) oF C12) eGC12) 9HC12) 9T (12) 9S 
(12) 

00015 DIM KO12) 9h (12) 9M 612) 9NC12) 90012) »Z012) vASC1G) 9 M$(12) 

00020 TATA "AM. EXPRESS"» "CHECKING" »"CONDO"» "GAS & OIL"»"HEAT" 
00030 DATA "HOUSEHOLD" » "LIGHT" »s "MARINA" » "MASTER CHARGE" » "MEDICAL" 

00040 DATA "MISC."»*"PHONE"» "TAXES"» "TIRES&REPAIR"» "TELEVISION" 

00050 DATA "JAN"y "FEB" "MARCH" » "APRIL" » "MAY" » "JUNE" » "JULY" » "AUG" 
00055 DATA "SEPT" s "OCT": "NOV"» "DEC" 

00060 FOR X=1TO ISfREAD A$(X)3NEXT X 

000465 FOR X=1TO 12?3READ M#(X)2NEXT X 

00070 PRINT "THIS IS A BOOKKEEFING SYSTEM FOR MAINTAINING YOUR RE 

CORDS, * 

00075 PRINT "YOU CAN LOOK AT ANY OF THE FOLLOWING AREAS BY TYFING 
THE" 

00080 FRINT "NUMBER OF THE AREA AS IT AFPEARS IN THE LIST." 

00085 PRINT {PRINT tFOR X=1TO 4 

00090 PRINT TABCO) Xs TABC3) FAS(X) FTABCIB8) FX449AS (X44) 5 TABC33) X48 


, 

00095 FRINT AS$(CX+8) s TABCS2) #X4125A$(X412) 
00100 NEXT X 

00105 FRINT 3 INFUT "WHICH IS YOUR AREA OF INTEREST? "3yY 
00108 B¢="" 

00110 GOTO (YK20+100) 

00115 GOTO 105 

00120 GOSUBR 970 

00121 FOR X=OTO 12¢Z2¢X)=ACX)2NEXT X 

00122 GOSUR 800 

00123 IF B¢="LOOK"GOTO 130 

00124 GOSUB 850 

00125 IF B$="NO"GOTO 130 

00126 GOSUB 920 

OO127 A=Z 

00128 ACX)=INTCCACK) FA) K1004+.5)7100 

00129 ACOd=INTC CACO) +A) K1004+.5)/100 

00130 GOSUR 950 


FROGRAM NAME RECORDS/DACEY < CONT‘D > 


00131 
00132 
00133 
00135 
00140 
00141 
00142 
00143 
00144 
0014S 
00146 
00147 
00148 
00149 
00150 
00151 
00152 
00153 
00155 
00160 
00161 
00162 
00163 
00164 
00165 
00166 
00167 
00168 
00169 
00170 
OO17 1 
00172 
00173 
00175 
00180 
00181 
00182 
00183 
00184 


IF B¢="LOOK"GOTO 120 
IF BS="ENTER"GOTO 124 


IF B¢="CHOOSE"GOTO 105 

GOTO 130 

GOSUB 970 

FOR X=OTO 123Z¢X)=BCX)3NEXT X 


GOSUB 800 

IF B¢="LOOK"GOTO 150 

GOSUE 850 

IF B¢="NO*GOTO 150 

GOSUER 920 

B=Z 

BCX) =INTC( (BCX) 4B) 1004.5) /100 
BCO)=INTCCR(O) +8) K1004+5) 7100 
GOSUR 950 

IF B¢="LOOK"GOTO 140 

IF B$="ENTER"GOTO 144 

IF B¢="CHOOSE"GOTO 105 

GOTO 150 

GOSUB 970 

FOR X=OTO 123Z¢X)=CCX)ENEXT X 
GOSUB 800 

IF B¢="LOOK"GOTO 170 

GOSUB 850 

IF B¢="NO"GOTO 170 

GOSUR 920 

C=Z 

COX =INTCCOCX)4+0)K1004+~.5)7100 
CCO=INTCCOCODFC) K1004~-5) 7100 
GOSUR 950 

IF B#="LOOK"GOTO 140 

IF B¢="ENTER"GOTO 164 

IF B="CHOOSE"GOTO 105 

GOTO 1790 

GOSUR 970 

FOR X#OTO 122Z¢X)=D00X)3NEXT X 
GOSUB 800 

IF B¢="LOOK"GOTO 199 

GOSUB 850 
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PROGRAM NAME? RECORDS/DACEY 


00185 
00184 
00187 
00188 
00189 
00190 
00191 
00192 
00193 
00195 
00200 
00201 
00202 
00203 
00204 
00205 
00206 
00207 
00208 
00209 
00210 
00211 
00212 
00213 
00215 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00228 
00229 
00230 
00231 
00232 
00233 


IF B¢="NO"GOTO 190 

GOSUB 920 

h=Z 
D¢CXd=INTCCOCX) +0) k1004+.5)/100 
DCOd=INTC COCO) +09k1004+.5)/100 
GOSUE 950 

IF B¢="LOOK"GOTO 180 

IF B$="ENTER"GOTO 184 

IF B¢="CHOOSE"GOTO 105 

GOTO 190 

GOSUB 970 

FOR X=OTO 12°Z¢X)=E(X)SNEXT X 
GOSUB 800 

IF B$="LOOK"GOTO 210 

GOSUB 850 

IF B$="NO"GOTO 210 

GOSUB 920 

E=Z 
ECX)=INTCCE (CX) +E) X100+.5)/100 
ECO=INTCCE CO) FE) K1004.5)/100 
GOSUB 950 

IF B¢="LOOK"GOTO 200 

IF B¢="ENTER"GOTO 204 


IF B¢="CHOOSE"GOTO 105 

GOTO 210 

GOSUE 970 

FOR X=OTO 123Z¢X)=F(X)2NEXT X 


GOSUB 800 

IF B¢="LOOK"GOTO 230 

GOSUB 850 

IF B¢="NO"GOTO 230 

GOSUB 920 

F=Z 
FCXd=INT CCR OX) +F)K100+.5) 7100 
FCOD=INTC CF CODFF)K100+4+.5)/100 
GOSUB 950 

IF B¢="LOOK"GOTO 220 

IF B¢="ENTER"GOTO 224 

IF B¢="CHOOSE"GOTO 105 


< CONT/D > 


FROGRAM NAME? RECORDS/IACEY = CONT‘D = 


00235 GOTO 230 

00240 GOSUB 970 

00241 FOR X=0TO 123Z¢X)=G(X) NEXT X 
00242 GOSUB 800 

00243 IF B¢="LOOK"GOTO 250 

00244 GOSUB 850 

00245 IF B$="NO"GOTO 250 

00246 GOSUR 920 

00247 G=Z 

00248 GC(X)=INTC (G(X) 4G) 1004.5) 7100 
00249 GCO)=INT((G(0)4G)*1004.5)/100 
00250 GOSUB 950 

00251 IF B¢$="LOOK"GOTO 240 

00252 IF BS="ENTER"GOTO 244 

00253 IF BS="CHOOSE"GOTO 105 

00255 GOTO 250 

00260 GOSUR 970 

00261 FOR X=O0TO 1232¢X)=HCX) SNEXT X 
00262 GOSUB 800 

00263 IF B$="LOOK"GOTO 270 

00264 GOSUB 850 

00265 IF BS="NO"GOTO 270 

00266 GOSUB 920 

00267 H=Z 

00268 H(X)=INTCCHCX) +H) X1004+.5) 7100 
00269 HCOI=INTCCHCO) FH) K1004+.5)7100 
00270 GOSUB 950 

00271 IF B¢="LOOK"GOTO 260 

00272 IF BS="ENTER“GOTO 264 

00273 IF B¢="CHOOSE"GOTO 105 

00275 GOTO 270 

00280 GOSUB 970 

00281 FOR X=OTO 1223Z¢X)=I10X) NEXT X 
00282 GOSUB 800 

00283 IF B¢="LOOK"GOTO 290 

00284 GOSUB 850 

00285 IF B$="NO"GOTO 290 

00286 GOSUB 920 

00287 I=Z 


PROGRAM NAME? RECORDS/DACEY < CONT‘D > 


00288 
00289 
00290 
00291 
00292 
00293 
00295 
00300 
00301 
00302 
00303 
00304 
00305 
00306 
00307 
00308 
00309 
00310 
00311 
00312 
00313 
00315 
00320 
00321 
00322 
00323 
00324 
00325 
00326 
00327 
00328 
00329 
00330 
00331 
00332 
00333 
00335 
00340 
00341 


ICX)=INTCCICX)+4+1)%1004+.5)7100 
ICO)=INTC CI CO) +1)K1004+.5)/100 
GOSUB 950 

IF B$="LOOK"GOTO 280 

IF B$="ENTER"GOTO 284 

IF B¢="CHOOSE"GOTO 105 

GOTO 290 

GOSUB 970 

FOR X=OTO 12¢Z¢X)=I(X)2NEXT X 
GOSUB 800 

IF B$="LOOK"GOTO 310 

GOSUB 850 

IF B¢="NO"GOTO 310 

GOSUB 920 

J=Z 
JCXI=INTCCICXI4+J2K1004+.5)/100 
JCOD=INTCCICO0 +I) K1004~.5)7100 
GOSUB 950 

IF B¢="LOOK"GOTO 300 

IF B¢="ENTER"GOTO 304 

IF B$="CHOOSE*GOTO 105 

GOTO 310 

GOSUB 970 

FOR X=OTO 1223Z¢X)=K(X) 3NEXT X 
GOSUR 800 

IF B¢="LOOK"GOTO 330 

GOSUB 850 

IF BS="NO"GOTO 330 

GOSUB 920 

K=Z 
KCXd=INT COCR CX) 4K) X1004+.5)7100 
KCOd=INT CCK CODFK) K1004.5)/100 


GOSUR 950 

IF B¢="LOOK"GOTO 320 

IF B¢="ENTER"GOTO 324 

IF B$="CHOOSE"GOTO 105 

GOTO 330 

GOSUR 970 

FOR X=OTO 1L2¢2¢X)=L CX) 2NEXT X 
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FROGRAM NAME? RECORDS/DACEY =< CONT’ + 


00342 
00343 
00344 
00345 
00346 
00347 
00348 
00349 
00350 
00351 
00352 
00353 
00355 
00360 
00361 
00362 
00363 
00364 
00365 
00366 
00367 
003648 
00369 
00370 
00371 
00372 
00373 
00375 
00380 
00381 
00382 
00383 
00384 
00385 
00386 
00387 
00388 
00389 
00390 


GOSUBR 800 

IF B¢="LOOK"GOTO 350 

GOSUR 850 

IF B#="NO"GOTO 350 

GOSUB 920 

L=Z 
L¢X=INTC CL OX) +L 910044597100 
L¢Od=INTCCL CO) FL) K1004-5)/100 
GOSUR 950 

IF B$="LOOK"GOTO 340 

IF B¢="ENTER"GOTO 344 

IF B¢="CHOOSE*GOTO 105 

GOTO 350 

GOSUR 970 

FOR X=OTO 123Z¢X)=M(X) SNEXT X 
GOSUB 800 

IF k¢="LOOK"GOTO 370 

GOSUB 850 

IF B¢="NO"GOTO 370 

GOSUR 920 

M=Z 

MCX) = INTC CMCX)4+M)K1004+.5)/100 
MCOD=INTCCMCOD FM) K1L004~65)7100 
GOSUB 950 

IF B#="LOOK"GOTO 3490 

IF B¢="ENTER"GOTO 364 

IF B¢="CHOOSE*GOTO 105 

GOTO 370 

GOSUR 970 

FOR X=OTO 123Z¢X)=NCX)2NEXT X 
GOSUBR 800 

IF B¢="LOOK"GOTO 390 

GOSUB 850 

IF B="NO"GOTO 390 

GOSUBR 920 

N=Z 

NOX) = INTCONCX) +N) K100445) 7100 
NCO)=INTCONCOD FN) K100¢25) 7100 
GOSUR 950 


PROGRAM NAME? RECORDS/DACEY = CONT’D > 


00391 
00392 
00393 
00395 
00400 
00401 
00402 
00403 
00404 
00405 
00406 
00407 
00408 
00409 
00410 
00411 
00412 
00413 
00415 
00800 
00805 
00815 
00820 
00825 
00830 
00835 
00850 
00855 
00860 
00865 
00870 
00875 
00880 
00885 
00890 
00895 
00900 
00905 
00920 


IF B¢="LOOK"GOTO 380 

IF BS="ENTER*GOTO 384 

IF B¢="CHOOSE"GOTO 105 

GOTO 390 

GOSUB 970 

FOR X=OTO 12%Z¢(X)=O(X) NEXT X 

GOSUB 800 

IF B$="LOOK"GOTO 410 

GOSUB 850 

IF B¢="NO"GOTO 410 

GOSUBR 920 

0=Z 

O¢CX)=INTCCOCX) +0) *1004+~.5)7100 
0(0)=INT((060)40)*1004+.5)7100 

GOSUB 950 

IF B¢="LOOK"GOTO 400 

IF BS="ENTER"GOTO 404 

IF B¢="CHOOSE"GOTO 105 

GOTO 410 

PRINT :FOR X=1TO 6 

PRINT TABCO)SMECX)FTABC7ZI 5 "S$" 5 ZOX) FTABC2AS) IME CX4+4) ¥TABCS2) ¥ 
FRINT "$"3Z¢CX+6) 

NEXT X 

FRINT ¢FRINT "TOTAL TO DATE = $"#Z(0O) 

FOR X=OTO 122Z¢(X)=OiNEXT X 

RETURN 

IF B$="ENTER"GOTO 880 

FRINT ¢FRINT "ARE YOU INTERESTED IN ENTERING DATA? FLEASE" 
LINE INFUT "ANSWER BY TYFING YES OR NO..-"3BS 

IF B="YES"GOTO 880 

IF B¢="NO"GOTO 90S 

GOTO 860 

LINE INFUT "FOR WHAT MONTH? TYPE THE MONTH AS SHOWN... "+ BS 
FOR X=1TO 12 

IF M$¢(X)=B¢GOTO 905 

NEXT X 

GOTO 880 

RETURN 

PRINT 3FRINT "THE AMOUNT SPENT SO FAR IN "$M$¢CX)#" ON" 
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PROGRAM NAME? RECORDIS/DACEY =< CONT‘D = 


00925 FRINT "EXPENDITURES FOR “sASCY) #2 INFUT " IS $"5Z 

00930 RETURN 

00950 PRINT ¢FRINT “AT THIS TIME YOU CAN LOOK AT THE MONTHLY DISF 
LAY" 

0095S PRINT "ENTER DIATAy CHOOSE ANOTHER AREAs OR QUIT. INDICATE" 
00960 LINE INFUT "BY FRINTING LOOK: ENTER» CHOOSEs OR QUIT... "8h4 
00965 IF BS="QUIT*GOTO 1000 

009467 RETURN 

00970 PRINT ¢FRINT “HERE ARE THE RECORDS FOR "sA$¢(Y)#" COSTS" 
00975 RETURN 

01000 END 
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SECTION IV 


GAMES 
PROGRAM NAME PAGE 
HUNT THE WUMPUS/PARKER« «6 osccsssccceneeseesviancuade 4-| 
DOGFIGHT /SANNER., 2.6 csceae0euesatees Sbeneuecieavauca 4-6 
GRINCH/ SANNERS 6 ss ee0s5s use see eb een demecvawecscenns 4-10 
LUNAR. LANDER REECE. 5 cssscaws asaneeeveveunseeouube 4-14 
TRERSFRITRIN: cu cgingecosnb eases weeevessedeccaeeces 4-19 
POOTEALL /COSTA cs cv neussncinanaeensevusewesneabeade 4-27 
CGO NANO oc cuow ee eacadaqnesdbasiad Seeeeoeeunwaews 4-41 
GAME OF LIFE/NORTH. ..000<00suweseuseeuscdscavennce 4-47 
SLOT SRESAGI TAR vou ann oa aveaddaveeeoeenseanaavencen 4-50 
BLACKJACK/BARTOLI .. ccccncuccuscececcnracccecccuece 4-53 
STAR CRUISER BATTLE/PERRELLO......... cc cccccccccce 4-61 
OES ccuakweenkhhia wyekew ed adtidede toaianscawenes 4-69 
SPACEWARS/PARKER so n00s0 0s dee ones Sanaw a reschecs oune 4-73 
MILLS=BELT FRUITSPEARCE. +c scnceuwueeesaceedaseaaace 4-79 
SOTTO/LIMIGES, asancueccdas dadeuseneeawusauensaease 4-82 
KEONOL RES MAITES DE «sasuke na eswwae ae ede 4 cunemwenenc 4-91 
CRAPSP THOMPSON. «isc cscvescviacaweessceauscwedvusecn 4-96 
OLE eee uns eanunins xaaen osedecedockensun auewn 4-101 
MISSILES PALE 0 cased ncdceseaaneevenwe us nvens endenci 4-106 
OS RE v6 ceed vackaaw taken Gh aRGEsGkwadeeeeiduades 4-110 
LUNAR LANDER/GRUNDON....... cece cece cc cccccceccce 4-113 
ONE ARM BANDIT/GRUNDON....... cece ccc ccc ccc ccccece 4-118 
OTHELLO GRUNDON...«cevavumenswanssoeeeasancagacan ce 4-121 


SECTION IV CONT'D 


GAMES 

PROGRAM NAME PAGE 
BOWLING] Piss ckvicceee cee eS e Sewere seo Kees es BEETS 4-130 
MAZE/NA IMO is duces esos ew ee er eg eee CATV KORA ws SHA 4-134 
BASEBALL/H11 BASIC... .ccscvccsvccccccesecsevececs 4-138 
BLACKJACK/H11 BAS IICisccwenvecuee seceeeceesnesewens 4-144 
ONE ARM BANDIT/H11 BASIC... ccc wccccccccccccccons 4-150 
TRAP/H11 BASIGcceuccwe 60365906 2656665 Ha wR S eee 4-152 
THE GAME OF GOLF/H11 BASIC... cc ncccvcccccccvcce 4-153 
LUNAR’ LANDER/H11 BASIC... ...ccsccccudarecesesneewes 4-156 
HORSE RACE/H11 BASIC. ccs ces cccvcccccccccccsereves 4-161 
CRAPS/H11 BAS Ces<ssesicertecerdce cera gasw se anes es 4-168 
ELIZAJH11 BASUGicwvos ecient bee oad Rw Ceo 6s RED ORK 4-171 
MADLIB/HIM BASICs cccccccsdcucuee eoeceewe enwaciee ce 4-176 
CRAZY EIGHES/HOV Ewcccsascesnceonss see sanees eave 4-180 
DIGE GAME/BOWES w.c0.2cc cr cdtese sesso ES DE TEL TES HS 4-190 
SLOT MAGCHINE/ KYLE ssc é.ccsose a ccrns sie cie ewe meee. wees 4-196 
ODD EVEN/KYLE..ccc08 cG¢-cnerusecioneecenetdaewee sec ae 4-201 


H&S REFLEX TEST/SMITH....caccccsccescvesvcsseconces 4-207 


UG <8 >< O > F PX TOK Wot A PK ROLE 


af 


FROGRAM NAMES HUNT THE WUMPUS/FARKER 


00001 
00010 
00020 
00030 
00040 
00100 
00110 
00130 
00140 
00150 
00160 
00240 
00280 
00320 
00330 
00340 
00350 
00390 
00485 
02000 

2110 
02050 
02060 
02080 
02100 
02110 
021490 
02150 


REM HUNT THE WUMPUS/FPARKER 

FRINT “HUNT THE WUMFUS!° 

LINE INPUT “WANT INSTRUCTIONS? “51% 

IF LEFT$(I$*1)="Y" THEN GOSUB 7000 

PRINT "WORKING. ++" 

DIM L¢(8)*S(20%3) 

FOR I=1 TO 20% FOR J=1 TO 3:READ S(IyJ)% NEXT J: NEXT I 
DATA 2rSeBrlySeilOr2r4r1293r5v147194276 

LATA So7olSrGrBri7vle7ePeBrl0vlBr2r9ril 

DATA 1LOv12riPrBrilyl3xl29l42 202413215 76714716 

LATA L517 7 2O0r7r1Gr1BrPvl7vlAP eli 218s 2091371467197 

W=O F=Ot M=0? FOR J=1 TO 7% L¢J)=INTCL+RNDC1)%20)3 NEXT J 
FOR J=1 TO 7% FOR K=J TO 7% IF J=K THEN 330 

TF L¢J)=L(K) THEN 240 

NEXT Ki NEXT J 

AHS? L¢Sd=LC1) 

PRINT t PRINT "ENTRANCE IS IN CAVE"$L(8) 

IF RNDC1)>0.4 THEN GOSUB 3370 

IF RNDC1)<0.08 THEN GOSUB 5000 

FRINT ¢ FOR K=1 TO 3% FOR J=2 TO 6? IF S(L¢1)9K)<eL CJ) THEN 


ON J-2 GOTO 2080%208072100%2100 

FRINT "I SMELL A WUMFUS"? GOTO 2110 

PRINT "I FEEL A DRAFT"? GOTO 2110 

FRINT "I HEAR BATS NEARBY" 

NEXT J NEXT K$ PRINT "YOU ARE IN CAVE*sL(1) 
J=INTCRNDC1)*40)$ IF J=0 OR J>7 THEN 2440 

ON J GOSUB 2200722007 2210722207223072240722503 GOTO 2440 


02200 PRINT "AH! WUMPUS TRACKS! "{ RETURN 

02210 PRINT "AH! «++ FOUND OLD ARROW! - LUCKY YOU."? A=At1? RETUR 
N 

02220 FRINT "OOFS, SLIPPED ON SOME LOOSE GRAVEL.": GOTO 5900 
02230 PRINT "OOPS: YOU JUST FELL INTO AN UNDERGROUND FOOL.*? GOTO 
3900 

02240 FRINT "THIS LOOKS LIKE A NICE CAVEy WHY NOT STOP FOR LUNCH? 
"3 RETURN 

02250 PRINT "TAKE CARE WITH THAT FLASHLIGHT! *? RETURN 

02440 PRINT "TUNNELS LEAD TO CAVES"#S(L(1) 91) ¢SCL 01) 292) ¢S(L C1) 93) 
$ PRINT 

02450 IF J=38 THEN L=L(5)? GOTO 4260 


PROGRAM NAME? HUNT THE WUMPUS/FARKER < CONT‘D > 


02500 M=Mt13 LINE INPUT “WHAT DO YOU DO? "sI¢ 

02540 IF LEFT$(I$%r1)="S" THEN 3000 

02550 IF LEFT$(I¢+1)="A" THEN 3220 

02560 IF LEFT#(I$+1)="M" THEN 4000 

02570 IF LEFT$(I$v1)="E" THEN 2600 

02580 IF LEFT$(I%s1)="H" THEN GOSUB 7600t GOTO 2000 

02590 GOTO 2500 

02600 IF L(1)=L¢(8) THEN 8800 

02610 PRINT "NO EXIT HERE." GOTO 2000 

03000 IF A<1 THEN PRINT "WHAT WITH? DUMMY! *? GOTO 390 

03010 INPUT “CAVE #*°3L$ FOR K=1 TO 33 IF S(L¢1)9K)=L THEN 3130 
03020 NEXT Ki PRINT "NOT FOSSIBLE."$ GOTO 3010 

03130 A=A-1% IF A<O THEN A=O! GOTO 3220 

03135 IF L<>L¢(2) THEN FRINT "MISSED."t GOTO 3215 

03140 IF RND(1)<.9 THEN PRINT "YOU GOT THE WUMPUS! "3 F=F+t1? L¢2)= 
03 GOTO 4400 

03150 PRINT "YOU WOUNDED THE WUMFUS! © 

03215 GOSUB 3370 

03220 PRINT As"ARROWS LEFT."% GOTO 390 

03370 IF W=1 THEN L¢(2)=03 RETURN 

03380 L(2)=S(L(2)*INTC3XRND(1)41)) 

03390 IF L¢1)=L¢(2) OR L=L¢2) OR L¢(2)=L(7) THEN 3380 

03425 RETURN 

04000 INFUT “WHERE TO? "#L3 FOR K=1 TO 3t IF S(L(1)»K)=L THEN 412 
0 

04080 NEXT Ki IF L¢>L(1) THEN PRINT "NOT POSSIBLE."! GOTO 4000 
04120 IF L=L(2) THEN PRINT "OOPS! BUMPED A WUMFUS."!$ GOTO 4500 
04210 IF L=L(3) OR L=L(4) THEN PRINT "YYYIIIEEE!! ... FELL IN FIT 
«"3 GOTO 4520 

04220 IF L=L(7) THEN PRINT "CAVE ENTRANCE IS BLOCKED."*: GOSUB 390 
0: GOTO 390 

04260 IF L=L(5) OR L=L(6) THEN PRINT "ZAP! ... SUPERBAT SNATCHI"? 
GOTO 4280 

04265 IF L=L(8) THEN PRINT "EXIT NEARBY." 

04270 L¢(1)=L? GOTO 390 

04280 L=INTC1I+RND(1)*20)% IF L=L(1) OR L=L(6) OR L=L(7) THEN 4280 
04290 GOSUB S900? GOTO 4120 

04400 IF RNDC1)<.75 THEN PRINT "BEWARE OF ITS MATE.*t J=2t GOSURB 
6100? GOTO 3220 

04410 W=1? PRINT "HEE HEE HEE ~— THE WUMPUS‘L GET YOU NEXT TIME. "3 
GOTO 390 


> 
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FROGRAM NAME? HUNT THE WUMPUS/PARKER 


04500 IF RNDIC1)<.75 THEN GOSUB 3370: GOSUB 5900: GOTO 4270 

04510 PRINT “TOO BAD - THE WUMPUS GOT YOU!* 

04520 PRINT "HA HA HA — YOU LOSE!": GOTO 8810 

05000 PRINT "xk EARTHQUAKE *xX"? FOR J=3 TO 7: GOSUB 6100: NEXT J? 
GOSUB 5900 

05005 L¢2)=INTCRND(1)*20¢1)% IF L¢1)=L¢2) OR L¢2)=L¢7) THEN 5005 
O5010 IF RNIC1)<.1 THEN RETURN 

05020 L(8)=INTCRND(1)k20+1)2 FOR J=3 TO 7 

05030 IF L¢8)=L(J) THEN L(8)=INTCRNDC1)*2041)2 GOTO S030 

05040 NEXT J? RETURN 

05900 J=INTCRND(1)*10)% IF J>A OR A=O THEN RETURN 

O5910 PRINT "DROPPED ARROWS." IF J=O THEN FRINT “ALL ARROWS FOUN 
Df." RETURN 

05930 A=A~Ji PRINT J#"ARROWS LOST» "*As "LEFT." RETURN 

06100 L¢(J)=INTCRND(1)*2041)% IF L¢J0=L¢1) OR L¢(J2=L¢8) THEN 6100 
06200 RETURN 

07000 PRINT ?PRINT "AS EACH FAGE OF INSTRUCTIONS IS PRINTED, THE 
FROGRAM WILL" ° 
07001 PRINT "PAUSE TO ALLOW YOU TIME TO READ THE PAGE. TYPE A SP 
ACE WHEN YOU" 

07002 PRINT “ARE FINISHED READING AND THE INSTRUCTIONS WILL CONTI 
NUE. "+ 

07005 FAUSE : PRINT } FRINT 

07009 PRINT "WELCOME TO “HUNT THE WUMPUS’!"? PRINT 

07010 PRINT “THE WUMPUS LIVES IN A BURROW OF 20 CAVES. EACH CAVE 
HAS TUNNELS" 

07020 FRINT "LEADING TO 3 OTHER CAVES. THE OBJECTIVE IS TO DESCE 
NO}. INTO THE* 

07030 PRINT "BURROWs HUNT WUMPI,s AND ESCAPE ALIVE. AFTER YOU HAV 
E KILLED AT" 

07040 FRINT “LEAST ONE YOU MAY RETURN TO THE EXIT AND LEAVE THE 
BURROW. "* 

07050 PRINT $ FRINT "YOU HAVE S ARROWS. UNDER CONDITIONS OF STRE 
SS» YOU MAY" 

07060 PRINT "DROF YOUR ARROWS ANDI) PERHAFS LOSE SOME."? PRINT 
07070 PRINT "YOUR RATING IS A FUNCTION OF THE NUMBER OF WUMPI SHO 
T IN THE" 

07080 FRINT “NUMBER OF MOVES SPENT IN THE BURROW. "5 

07090 FAUSE ¢ PRINT 


FROGRAM NAME? HUNT THE WUMPUS/PARKER < CONT‘’D > 


07100 FRINT PRINT TABC19) § *XXKKKKKKKKKKKKK"? PRINT TABC19) 5° xx 
HAZARDS xx" 

07105 PRINT TABC19) § "XXKKKKKKKKKKKKK"$ PRINT 

07110 FRINT TAB(22)5"k PITS x* 

O7115 FRINT "TWO CAVES CONTAIN BOTTOMLESS PITS. SHOULD YOU ENTER 
THE CAVE ANI" 

07120 PRINT "FALL INTO A PIT» YOU LOSE." PRINT 

07130 FRINT TAB(22)5"* BATS x" 

07135 FRINT "TWO CAVES CONTAIN NESTS OF SUPERBATS. THEY ARE*® 
07140 PRINT "VERY FRIVATE CREATURES» AND SHOULD YOU STUMBLE ACROS 
S THEIR" 

07150 PRINT "NESTING CAVE, YOU WILL BE PICKED UP AND DEPOSITED IN 
ANOTHER CAVE" 

07160 PRINT "AT RANDOM. OCCASIONALLY» FREDDY (THE FEARLESS) WILL 
FLY THROUGH" 

07170 FRINT "THE CAVES$ AND IF HE SHOULD SPOT YOUrs FICK YOU UP AN 
YWAY,." 

07180 PRINT "TOO BAD IF THE CAVE YOU ARE DROFFED IN CONTAINS ANOT 
HER HAZARD. "¢ 
07190 FAUSE $ PRINT 

07200 PRINT ¢PRINT TAB(19)5"xk EARTHQUAKES x* 

07210 PRINT "EARTHQUAKES ARE A VERY COMMON OCCURANCE. SHOULD ONE 
OCCUR," 

07220 PRINT "THE PITS MAY FILL UP AND NEW ONES OPEN. ONE CAVE MA 
Y BE BLOCKED" 

07230 FRINT "BY A ROCKFALL» THE BATS MAY BE DISTURBED ANI SEEK A 

NEW CAVEs ANI" 

072490 PRINT "THE WUMPUS MAY ALSO BECOME ALARMED AND MOVE ABOUT. "3 
FRINT 

07250 PRINT TAB(21)5"k WUMFUS x" 

07260 PRINT "THE WUMPUS IS NOT BOTHERED BY ANY HAZARDS (IT HAS SU 

CKERS ON ITS" 

07270 FRINT "FEETs AND IS TOO BIG FOR A BAT TO LIFT). IT MOVES T 

HROUGH THE" 

07280 PRINT "CAVES LOOKING FOR FOOD. IT NORMALLY EATS A SPECIES 

OF MUSHROOM» " 

07290 PRINT "BUT IT MAY EAT YOU IF YOU ENTER THE CAVE WHERE IT IS 
FEEDING. "3 

07300 FAUSE 3 PRINT 
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FROGRAM NAME? HUNT THE WUMPUS/FPARKER < CONT‘’D > 


07310 GOSUB 7600 
07320 GOTO 7455 
07600 FOR I=1 TO 53 PRINT tNEXT I3PRINT "ON EACH TURN YOU MAY!"? 


PRINT 

07610 PRINT 
TUNNEL," 
07620 PRINT 
E WUMPUS,." 
07630 PRINT 
07640 PRINT 
CAVE)." 
07650 PRINT 


07651 RETURN 


074655 PAUSE 
07660 FRINT 
WILL BE" 

07670 FRINT 
07680 FRINT 
07690 PRINT 
07700 FRINT 
07710 PRINT 
TRY TO" 

07720 PRINT 
07730 FRINT 


07740 RETURN 


08800 FRINT 


"M ~ MOVE INTO AN ADJACENT CAVE THROUGH A CONNECTING 
"S ~- SHOOT AN ARROW THROUGH A TUNNEL TO TRY TO HIT TH 


"A ~ CHECK NUMBER OF ARROWS LEFT“ 
"E ~ EXIT FROM THE CAVES (IF YOU ARE IN THE ENTRANCE 


"H ~ HELP! (REPEAT INSTRUCTIONS)." 


+ PRINT 3 PRINT 
sPRINT “WHEN YOU ARE ONE CAVE AWAY FROM A HAZARD YOU 


"WARNED AS FOLLOWS?" PRINT 

"WUMPUS ~- “I SMELL A WUMFUS’*" 

"BATS ~ “I HEAR BATS NEARBY" 

"PIT ~ “I FEEL A DRAFT’"? PRINT 

"YOU WILL BE TOLD IF YOU ENTER THE ENTRANCE CAVE? OR 


"ENTER A CAVE BLOCKED BY A ROCKFALL." 
$ FAUSE 


"OUT OF THE CAVE." 


08803 IF FO THEN FRINT " GOOD HUNTING." 


08804 FRINT 


08805 W=INT(FX1000/M)? PRINT “YOUR RATING IS"$wW 
08810 IF F=0 THEN PRINT "BETTER LUCK NEXT TIME." 


07000 END 


PROGRAM NAME? DOGFIGHT/SANNER 


00010 
00100 


REM DOGFIGHT/SANNER 
PRINT "THIS IS AN AERIAL DOGFIGHT BETWEEN YOUR FHANTOM AND 


AN ENEMY MIG." 


00110 PAUSE (700) 

00120 GOSUB 1180 

00130 PRINT TABCA9) "FLY WELL eceeseeoeesoeeeee ee GOOD LUCK!" 

00140 PAUSE (600):GOSUB 1180 

00150 PRINT "THE COMPUTER WILL ASK YOU FOR YOUR MISSILE DETONATIO 
N RANGE» " 

00160 PRINT "THAT IS HOW FAR OUT YOUR MISSILE GOES BEFORE IT EXPL 
OUES.* 

00170 PRINT “AFTER YOU ENTER THE RANGE» THE COMPUTER WILL TELL YO 
U HOW WELL" 

00180 PRINT "YOU DIDy AND THEN TELL YOU THE LAST KNOWN POSITION O 
F THE ENEMY." 

00190 PRINT "EVERY TIME YOU LAUNCH A MISSILE ANDI MISSr THE ENEMY 

TAKES A SHOT" 

00200 PRINT "AT YOU. REMEMBER TO PRESS THE ‘RETURN’ KEY AFTER EAC 
H ENTRY.” 

00210 FRINT "(WHEN YOU FINISH READING THIS FRESS THE ’RETURN’ KEY 
+) "3FAUSE 

00220 GOSUB 1186 

00230 E1=0201=03R=03L=0:M=03N=0 

00240 PRINT 

00250 A4=20 

00260 REM (A4 IS THE HIT RADIUS) 

00270 A3=A4 

00280 FRINT 

00290 FRINT "AN ENEMY MIG HIS BEEN SPOTTED ON RADAR!" 

00300 FRINT "ALERT YOUR WEAPONS CONTROL OFFICER AND ARM YOUR WEAF 
ONS." 

00310 PRINT $PRINT 

00320 INPUT "ENTER RADAR JAMMING CODE (ANY NUMBER BETWEEN 1 & 100 


) "y 
00330 
00340 
00350 
00360 
00370 


x4 

PRINT $PRINT ¢PRINT {PRINT 
FOR G=1 TO X4 

LET X4=X4xk(-1) 

NEXT G 

GOSUB 1180 


PROGRAM NAME? DOGFIGHT/SANNER < CONT‘’D > 


00380 PRINT TAB(22)"THE MIG IS TAKING EVASIVE ACTION! !* 

00390 GOSUR 1180 

00400 X=(RND(X441)4+0.5)*60 

00410 M=Mt1 

00420 A=(RNIVCX)+0.5)*60 

00430 FAUSE (750) 

00440 C=(RNINCX4)+0.5)*60 

00450 FRINT 

00460 Y=XxA 

00470 X1=CINTCY/100)K1004INT(X)> 

00480 IF M<35 GOTO S00 

00490 A3=2kxA4 

00500 IF L=1 GOTO 620 

00510 FRINT "THE LAST KNOWN VECTOR RANGE OF THE MIG WAS"#Xi#"METE 
RS," 

00520 INPUT “ENTER YOUR MISSILE DETONATION RANGE? "9B 

00530 PRINT 

00540 Yi=INTCY) 

QO0SS0 IF ABS(B-Y1)<A3 GOTO 690 

005460 R=ABS(B-Y1) 

00570 GOSUB 1180 

00580 IF (RB-Y1)>0 GOTO 610 

00590 PRINT "MISSED. seeeeeeee+MISSILE SHORT BY"$R¢ "METERS. "PAUSE 
(800) 

00600 GOTO 620 

QO0610 PRINT "MISSED. ++eeeeeee+MISSILE LONG BY"SR "METERS. " {PAUSE 
(800) 

00620 GOSUB 1180 

00630 L=0 

00640 FRINT TAR(14)"THE ENEMY IS LAUNCHING A MISSILE. se eeeee eee PR 
AY!T!* 

00650 FAUSE (1000) 

00460 IF ABS(A~-C)<AZ GOTO 830 

00670 FRINT TAB(11)"YOUR PRAYERS WERE ANSWERED.....++ENEMY MISSILE 
FASSED RY." 

00680 GOTO 400 

00690 IF ABS(B-Y1)<(A3/2) GOTO 780 

00700 [i=Ditd 

00710 IF Di>4 GOTO 740 


FROGRAM NAME? DOGFIGHT/SANNER «= CONT‘’D > 


00720 FRINT TABC12) "INDIRECT HITseeeeeeoeeee eMINOR DAMAGE TO ENEM 
Y MIG." 

00730 GOTO 370 

00740 GOSUB 1180 

00750 FRINT TAB(21) "DIRECT HIT. ++eeee+e+eENEMY DISTROYED! ! * 

00760 J=JF1LiPAUSE (1000) 

00770 GOTO 1000 

00780 IF ABS(B-Y1)<(A3/6) GOTO 740 

00790 IF fi=4 GOTO 740 

00800 FRINT TAB(21)"ENEMY HITeeeseeeeeeeeeeeeeeBUT STILL FLYING!" 

00810 Di=b1+t3 

00820 GOTO 370 

00830 IF ABS(A-C)<(A3/3) GOTO 930 

00840 E1=E1i+1 

00850 IF E1l>4 GOTO 890 

00860 PRINT TAB(10)"YOU HAVE BEEN HITe++eeeeeeeeeeMINOR DAMAGE TO 
YOUR FHANTOM! " 

00870 GOTO 400 

00880 FRINT 

00890 FRINT TABR(9) "BOOM! !!! YOUR AIRCRAFT UNCONTROLABLE..+++e-EJEC 
Teeeoe eEJECT! " 

00900 FAUSE (1000) 

00910 FRINT PRINT TAB(25) "BETTER LUCK NEXT TIME! * 

00920 S=S+t1iiGOTO 1030 

00930 IF ABSCA-C)>(A3Z/9) GOTO 880 

00940 IF E1>4 GOTO 890 

00950 FRINT TABC30)"FPHANTOM HIT!!!" 

00960 PRINT tPRINT “MINOR DAMAGE..+++++++CONTROLABILITY FOOR!!" 
00970 L=0 

00980 EL=E14+1 

00990 GOTO 400 

01000 FRINT 

01010 FRINT "MESSAGE FROM HEADQUARTERS? "PAUSE (1000) 

01020 FRINT "WELL DONE CAPTIAN «¢eeeeeeeeeRETURN TO BASE. "3 PAUSE ¢ 
1000) 

01030 FRINT ? PRINT 

01040 FRINT "SO FAR THE SCORE IS"3Js"SHOT DOWN BY YOU AND"sSs "SHO 

T DOWN BY ME." 

01050 PRINT TAB(21)"WOULTD YOU LIKE ANOTHER DOGFIGHT?" {PRINT 


oe 


PROGRAM NAME? DOGFIGHT/SANNER <= CONT’D > 


01060 LINE INPUT " TYPE *¥’ OR *°N" .°826 
01070 IF Z#="Y" GOTO 220 . 
01080 PRINT :PRINT 

01090 IF S$>J GOTO 1120 

01100 IF J>S GOTO 1150 

01110 FRINT "THIS WAR HAS BEEN A STAND-OFF. THANKS FOR THE CHALAN 
GE! "GOTO 1200 

01120 FRINT "I HAVE BEATEN YOU BY"#S-J#"GAMES» BUT YOU HAVE BEEN 
A DIFFICULT" 

01130 PRINT "OFPONENT.TRY AGAIN SOMETIMEr I CAN BE DEFEATED! "PAU 
SE (1500) 

01140 GOTO 1200 

01150 PRINT "YOU HAVE BEEN A WORTHY ADVERSARY» BEATING ME BY"#JU-S 
+"GAMES." 

01160 FRINT “NEXT TIME I WILL NOT BE SO EASY ON YOU!! "PAUSE (150 
0)?GOTO 1200 

01170 PAUSE (750)3GOTO 1200 

01180 PRINT {PRINT {PRINT ¢PRINT SPRINT SPRINT SPRINT ¢PRINT ¢PRI 
NT $PRINT 

01190 RETURN 

01200 PRINT SPRINT SPRINT {PRINT $PRINT $PRINT ¢PRINT 3END 
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PROGRAM NAME? GRINCH/SANNERS 


00010 REM GRINCH/SANNERS 2927 BYTES 

00100 PRINT “OOOO OKKKAKKKKK THIS IS THE GAME OF GRINCH OKKK 
FORK KKK * 

00110 PRINT 

00120 PRINT "DO YOU WANT ME TO PRINT THE RULES?* 

00130 LINE INPUT "(TYPE ‘Y’ FOR YES OR ’N’ FOR NOyTHEN FRESS ‘RET 
URN’) "5Z$ 

00140 GOSUB 940 

00150 IF Z¢="Y" GOTO 180 

00160 IF Z$="N"* GOTO 440 

00170 REM (HERE ARE THE RULES) 

00180 PRINT "THE GRINCH IS HIDING WITHIN A GRID LIKE THE * 

00190 PRINT "ONE I AM ABOUT TO DISPLAY. "PAUSE (1500) 

00200 PRINT 

00210 FOR K=9 TO 0 STEF -1 

00220 PRINT TABCI7)$KSTAB(20)5". 6 6 6 6 8 ew ee et 
00230 NEXT K 

00240 PRINT TAB(20)3"0 1 2 3 45 6 7 8 "3PAUSE (1500) 
00250 PRINT $PRINT tPRINT 

00260 PRINT "THE GRINCH WILL BE HIDING AT ONE OF THE GRIDPOINTS." 
00270 PRINT "YOU TRY TO FIND HIM BY GUESSING HIS GRIDFOINT," 
00280 FRINT "HOMEBASE IS THE GRIDFOINT (070) IN THE LOWER LEFTHAN 
0 " 

00290 PRINT "CORNER OF THE GRID. YOUR GUESS SHOULD BE A PAIR OF N 
UMBERS * 

00300 PRINT "SEPERATED BY A COMMA.(THE COMMA MUST BE THERE) "fF RIN 
T 


00310 PRINT "THE FIRST NUMBER TELLS HOW FAR TO THE RIGHT OF HOMER 
ASE" 

00320 PRINT "YOU THINK THE GRINCH IS HIDING AND THE * 

00330 PRINT "SECOND NUMBER TELLS HOW FAR ABOVE HOMEBASE YOU THINK 


00340 PRINT "THE GRINCH IS HIDING." 

00350 PRINT "(PRESS THE ‘RETURN’ KEY WHEN YOU HAVE FINISHED READI 
NG.) "3 PAUSE 

00360 GOSUB 940 

00370 PRINT "FOR EXAMPLE IF YOU THINK THE GRINCH IS 8 TO THE RIGH 
i (is 

00380 FRINT "OF HOMEBASE AND 3 ABOVE HOMEBASE? YOU WOULD ENTER 8» 
oa 


A= {0 
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PROGRAM NAME? GRINCH/SANNERS 


00390 FRINT "AS YOUR GUESS AND THEN PRESS THE ‘RETURN’ KEY." 
00400 FRINT tPRINT “AFTER YOUR GUESS» I WILL TELL YOU HOW FAR" 
00410 PRINT "(IN A DIRECT LINE) YOUR GUESS IS FROM WHERE THE GRIN 


00420 PRINT "IS HIDING." 
00430 FRINT "(FRESS ‘RETURN’ WHEN YOU HAVE FINISHED READING) "PAU 


00440 A=INTCLOXRNICL)) 
00450 B=INTC1OXRND(A)) {REM (USE OF ‘A’ HERE HELPS’ MAKE A NOT EQUA 


00470 GOSUB 940 
00480 PRINT TAB(12)"THE GRINCH IS HIDINGs ++eeeeeeeeTRY TO FIND HI 


00490 T=1 

OO5S00 PRINT {INPUT *° WHAT IS YOUR GUES 
SP "FXr¥ 

00510 PRINT 

00520 GOTO 630 

00530 M=Mt1 

00540 IF M=5S GOTO 560 

00550 GOTO 500 

00560 PRINT tPRINT {PRINT "DO YOU WANT TO KNOW WHERE THE GRINCH I 
S?"3CLEAR M 

00570 PRINT CHR$(7)tPRINT CHR$(7)$LINE INPUT "TYPE “Y’ OR ’N’ *% 
Us 

OOS80 IF U$="Y" THEN PRINT tPRINT "OKeeeeeee+THE GRINCH IS AT"#A% 
"»"sBiGOTO 890 

00590 PRINT {PRINT "OKy WAKE ME UP WHEN YOU ARE FINISHED! "PAUSE 
(700)iGOTO 300 , 

00600 FRINT 

00610 GOTO 440 

00620 REM (I IS THE STRAIGHT LINE DISTANCE TO THE GRINCH) 

00630 D=SQR(( (ABS(X-A) 72) 40 CABS CY~B) 72) ) 

00640 REM (ROUND 0D TO ONE DECIMAL FOINT)> 

00650 D=INT(10O*kD)/10 

00660 IF D=0 GOTO 720 

00670 IF D=1 GOTO 960 

00680 FRINT "YOU ARE"s0s"UNITS FROM THE GRINCH. * 


PROGRAM NAME? GRINCH/SANNERS <= CONT‘D > 


00690 T=Tt1 

00700 IF T>7 GOTO 530 

00710 GOTO S00 

00720 GOSUBR 980 

00730 PRINT "XXXXXXKKKKKKKKKK YOU GET A BIG HUG FROM THE GRINCH x 
OOOO OK KOK K " 

00740 FRINT TAB(24)"HE HAS BEEN SO LONELY! *3FAUSE (900) 

00750 FRINT ¢PRINT 

00760 PRINT "IT TOOK YOU" T#"GUESSES TO FIND HIM. WOULD YOU LIKE 
TO FLAY AGAIN?" 

00770 S=StT 

00780 PRINT {LINE INFUT "TYPE “’Y’ OR ’N’% "3K 

00790 IF K#="Y" GOTO 440 

00800 GOSUB 940 

00810 PRINT "YOU HAVE PLAYED"$Js"GAMES OF GRINCH." 

00820 PRINT $PRINT "ON THE AVERAGE IT HAS TAKEN YOU"SINT(S/J)$ "GU 
ESSES FER GAME." 

00830 FAUSE (800) 

00840 FRINT 

00850 IF INT(S/J)>10 GOTO 870 

00860 FRINT "NOT BADy IT AM VERY IMPRESSED! ! "GOTO 880 

00870 FRINT "NO OFFENSE» BUT I HAVE SEEN BETTER!" 

00880 FAUSE (2000) 

00890 FAUSE (800):GOSUR 940 

00900 FRINT t:PRINT TAR(28)"THANK YOU FOR PLAYING! "PAUSE (1000) 
00910 PRINT ¢FRINT $PRINT SPRINT $PRINT ¢PRINT {PRINT 3PRINT {PRI 
NT SPRINT 

00920 GOTO 970 

00930 REM (LINES 940 & 950 ARE SCREEN CLEAR SUBPROGRAM) 

00940 PRINT ¢FRINT ¢PRINT ¢PRINT {PRINT ?PRINT {PRINT 3FPRINT {PRI 
NT PRINT 

00950 FRINT $FPRINT {RETURN 

00960 PRINT "CAREFUL NOW YOU ARE ONLY 1 UNIT FROM THE GRINCH! *3GO 
TO 490 

00970 FRINT "TO RESTART THE GAMES TYPE ‘RU’ THEN FRESS ‘RETURN’ KE 
Y. "END 

00980 FOR N =1 TO 12 {REM (LINES 980 TO 1010 GENERATE SOUND OF TH 
E GRINCH) 

00990 FRINT CHRE¢(7) 
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PROGRAM NAME? GRINCH/SANNERS <= CONT‘D > 


01000 NEXT N 
01010 RETURN 
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PROGRAM NAME? LUNAR LANDER/REECE 


00001 
00010 
oo0o011 
00020 
00021 
00031 
00032 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
90110 
00120 
00130 
00140 
00140 
OOK KK 
00180 
LAY 

00190 
00200 
00210 
00215 
ING’ 

00220 
00240 
KKK 3 
00245 
00246 
00255 
00260 
00265 
00280 
00290 
00300 
00310 


REM LUNER LANDER/REECE 9452 BYTES 
REM WAIT LOOF 


K=1 

REM INTERVAL FOR CHANGING VALUES OF HyFrV 
I9=2 

REM VERSION 

V$="1.0 (DECEMBER 1977)° 

REM INITIAL HEIGHT (MILES) 

H=99.9 

REM INITIAL FUEL CFOUNDS) 

F=9.99 

REM INITIAL VELOCITY 

Y=Q 

REM SET INITIAL VALUES FOR 3 DISPLAY VALUES 
DIM L¢3) 

LCL BHiL (2)=F SL (3) =V 


REM RATE OF BLINKS 
R2=150 
REM OOOO OOOO OIG IOI OOK IKK KK 


REM REAL TIME LUNAR LANDER FOR HEATH H8 USING LED’S TO DISP 


REM HEIGHT, FUEL» ANI VELOCITY ~~~ ACCEPTS 
REM + OR - FROM KEYFALD TO TURN ROCKET MOTOR ON OR 
REM OFF TO SLOW DESCENT. (C REECE - 12/77) 


REM IDEAS FROM SEVERAL ARTICLES» PRIMARILY ‘PERSONAL COMPUT 


REM NOV/DEC 1977 (P91) 
REM OOOO OOOO OOOO OOO I OO KOK K 


LINE INFUT “WHAT IS YOUR NAME?" 5 NS 

IF N$="/" THEN GOTO 910 

FOR I=1 TO SiPRINT CHR$(10)52NEXT ITS PRINT 

FRINT TAB(10)#"H8 LUNAR LANDER - VERSION: "V$ 

FOR I=1 TO StPRINT CHRS(10)%3NEXT IS PRINT 

PRINT ¢PRINT 

PRINT "*xkxk GOOD MORNING ASTRONAUT "NS", * 

PRINT “xxx PLEASE PREPARE FOR DESCENT TO THE MOON." 
PRINT 


4 = 14 


PROGRAM NAME? LUNAR LANDER/REECE < CONT’D > 


00320 FRINT "*xXxk DO YOU WISH COMPUTER READOUT OF LANDING INSTRUCT 
IONS?" » 

00330 LINE INPUT A$ 

00340 IF A¢="NO" THEN GOTO 880 

00350 REM [GO”OOOOOOOOOOOOM OOO OOOO OGIO KICK OK KK KK 
OK KKK § 

00375 PRINT sREM FRINT INSTRUCTIONS 

00380 FRINT “kk ASTRONAUT "NS", YOU ARE IN LUNAR LANDER L-101 IN 
ORBIT" 

00390 FRINT "Xxx AROUND THE MOON AT AN ALTITUDE OF "Hs" MILES." 
00400 PRINT “kkk YOUR FUEL LOAD IS "Fs" POUNDS AND YOUR CURRENT ° 
00410 FRINT "Xxx VERTICAL VELOCITY IS "Vs"," 

00420 FRINT "kx CURRENT VALUES» ANI! SUBSEQUENT CHANGING VALUES» 
ONCE" 

00430 FRINT "Xxx THE DESCENT BEGINS» WILL BE DISPLAYED" 
00450 FRINT "Xxx ON THE LED’S ON THE H8 FRONT PANEL. " 
00460 LET Ri=1 

00470 GOSUB 11000 SREM DISPLAY ONE TIME THE CURRENT VALUES 
00475 FRINT 

00480 LINE INFUT “xkxk DO YOU SEE THE DISPLAY?" FAS 

00485 FRINT 

00490 IF At="YES" THEN GOTO 700 

00500 REM [OOOO OOO OOOO OOO IO IO OK ICO K 
OK KKK K 

00530 LET R1i=S 

00540 GOSUB 11000 

00545 FRINT 

OOS50 FRINT "kX NOW, ASTRONAUT “"N$",s DO YOU SEE THE DISPLAY?"s 
00560 LINE INFUT A$ 

00565 PRINT 

00570 IF A$="YES"* THEN GOTO 710 

00530 REM OOOO OOK OO IOC IK OKK KOK 


00600 FRINT "XXX ASTRONAUT "N#"» HOW IN JUPITER BID) YOU GET IN TH 


E* 
00610 FRINT "xx SPACE PROGRAM? YOU CAN’T SEE WELL ENOUGH TO 
00620 PRINT "XxX LAND THE L-101 WITH 15 CO-FILOTS." 


00630 FRINT ¢PRINT 


¢H >< U DX 


FROGRAM NAME? LUNAR LANDER/REECE «< CONT‘D > 


00640 FRINT 
00650 PRINT 


00660 PRINT 
00670 PRINT 


00680 END 


"KKK THIS MISSION IS SCRUBBED» RETURN TO EARTH AT* 


"KKK ONCE AND REFORT IMMEDIATELY FOR EYE TESTS!!! 
*+FRINT 
"KKK MISSION CONTROL OVER AND OUT ! 


00690 REM OOOO OOOO OOO OOOO OO GIOKK Ok 


00710 FRINT 
00720 PRINT 


00730 FRINT 
CREASE" 
00740 PRINT 


00750 FRINT 
007460 FRINT 
UNTIL" 
00770 FRINT 
E J 

00780 FRINT 

00790 PRINT 


00800 FRINT 
00801 FRINT 


00802 FRINT 
00810 FRINT 


00820 FRINT 
00830 FRINT 
00850 FRINT 
00860 PRINT 
00861 PRINT 
00862 FRINT 


00863 FRINT 


"KKX AS YOU DESCEND THE LED VALUES WILL CHANGE" 


"KX REFLECTING INCREASE IN VELOCITY» DECREASE IN 
"KX REMAINING AS YOU BRAKE FOR TOUCHDOWN» AND DE 
"KKK IN HEIGHT AS YOU APPROACH THE LUNAR SURFACE, 
"*XK UNLESS YOU BRAKEy WITH THE ROCKET» THE VELOCITY" 
"KKK (SFEED) OF DESCENT WILL CONTINUE TO INCREASE 
"KKK YOU SMEAR YOURSELF AND THE L-101 ALL OVER TH 
"KXX SURFACE OF THE MOON. BUT BE CAREFUL AND" 
"ROKK DON’T USE ALL YOUR FUEL TOO SOON OR THE SAME 
"KX HAPFEN. * 

"KK WARNING kkk YOU MUST LAND AT A VELOCITY LESS THA 
"KKK OR EQUAL TO 5.0 FEET PER SECOND! * 
"KKK AS YOU OBSERVE THE CHANGING Hy Fy AND V VALUES O 
"KK THE LED’S AND DECIDE TO TURN ON THE ROCKET M 
"KKK (BRAKE) OR TURN IT OFF (ACCELERATE) »" 

"KKK PRESS THE + OR ~ KEYS ON THE KEYPAD ° 

"KKK TO TURN ON(+) OR OFF(-) THE ROCKET MOTOR." 
"KKK WHEN TURNING ON OR OFF THE ROCKET MOTOR HOLD 
"KOK + OR ~- BUTTON DOWN UNTIL THE FUEL FLOW BEGIN 
"KOK TECREASING (+) OR STOPS DECREASING (-)." 
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FROGRAM NAME? LUNAR LANDER/REECE < CONT’D > 


00880 PRINT 

00890 PRINT "kkk GOOD LUCK ASTRONAUT "N$"» PRESS THE ‘GO’ KEY" 
00900 PRINT "Xxx ON THE H8 TO BEGIN DESCENT." 

00970 REM OOOO OOOO OOOO OO CO OO KK 
xxx 

00920 IF PIN(240)<>246 THEN GOTO 920 $REM WAIT FOR ‘GO’ (KEY 4) 
00930 IF R=O0 OR (R>0 AND F<0) THEN GOSUB 12000 tREM MOTOR OFF OR 
NO FUEL 

00940 IF RO AND F>0 THEN GOSUB 13000 {REM MOTOR ON AND FUEL OK 
00960 LET L(1)=HiL(2)=FiL(3)=V¥ {REM SET FOR UPDATING LED DISFLAY 
00970 GOSUB 10000 iREM TO LED DISPLAY 

00975 IF H==0 THEN GOTO 1060 ‘REM LANDED, HOW EASSY 

00980 REM OOOO OOOO OOOO OOO OOO OO KK 
20K KKK 

00990 FOR I=1 TO K ?REM WAIT AND CHK FOR + OR ~ IN 

01000 IF FIN(240)=175 THEN LET R=1 REM +» TURN ON ROCKET MOTOR 
01010 IF FIN(240)=143 THEN LET R=0 $REM —-» TURN OFF ROCKET MOTOR 
01020 NEXT I 

01030 GOTO 930 

01040 REM OOOO” OOOO OOO OK KOK 
XXKKK 

01050 REM LANDED! CHECK VELOCITY 

01060 IF Ve=5 GOTO 1100 

01070 REM >5 IS CATASTROFHE. 

01080 PRINT "DEAR SIR»: WE REGRET TO INFORM YOUsseoeeees Role Pe" 
01090 END 

01100 IF V<3 GOTO 1140 

01110 REM 3 TO S IS ROUGH BUT OK.. 

01120 PRINT "Xkk LC-101 LANDED AT A SPEED OF "V3" FT/SEC." 

01130 FRINT "kkk ROUGH BUT YOU MADE IT." 

01135 GOTO 1160 

01140 REM 0-2 IS OK! 

01150 PRINT "kkk LC101 LANDED AT A SPEED OF "V3" FT/SEC." 

01155 PRINT "*kk GREAT TOUCHDOWN!!!" 

011460 FRINT "Xk CONGRATULATIONS ASTRONAUT "NS"! * 

01170 END 

10000 REM EO OOOO OOOO OOO OO OOO OK KOK 
x3 

10010 REM *Xk DISPLAY L(1) 9h (2) 9h (3) AS 99.69999.9999.9 


PROGRAM NAME? LUNAR LANDER/REECE «= CONT’D > 


FOR I=1 TO 3 

REM TENS 

T=INTCC(L (I) +.05)710) 

REM UNITS 

U=INT(L (CI) +.05-TX10) 

REM DECIMAL TENTHS 

D=INT((L¢1)+.05-TKIO-U)*10) 

CNTRL 2r1 

POKE 82004+(3kI) rSEG(T) 

FOKE 82004+(3kI)+1/SEG(ABS(U)) AND 2°7 ¢tREM ADD DECIMAL FOI 


POKE 82004(3kI)+2rSEG(ABS (DT) ) 

NEXT I 

RETURN 

REM OOOO OOOO OOOO OO IORI OI IO IO CICK ACK KOK 


REM *xk BLINK DISPLAY Ri TIMES AT RATE R2 
FOR Ii=1 TO Ri 
CNTRL 220 tREM TURN OFF DISPLAY 


GOSUB 10000 REM TURN ON DISPLAY 
FOR J=1 TO R2%NEXT J 

NEXT I1 

RETURN 


REM OOOO OOOO OIG OOK IOC AK 
REM OOOO OOOO OO AOC KICK OK 


REM MOTOR IS OFF OR OUT OF FUEL 

LET V=V41/I9 %REM VELOCITY INCREASES 

LET H=MAX(OrH-V/I9) 

RETURN | 

REM OOOO OCS OSORIO OCR O ACCOR OIA ACK 


REM MOTOR IS ON 

LET YV=V-1/19 ‘REM REDUCE VELOCITY 
LET F=F-1/19 ‘REM USE UF SOME FUEL 
LET H=H-V/I9 ‘REM DECREASE ALTITUDE 
RETURN 

ENI 
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PROGRAM NAME? TREK/FRITKIN 


00001 REM TREK/FRITKIN 3165 BYTES 

00002 REM “BY GARY FRITKIN DEC. 10% 1977" 

00005 REM THIS IS ENTERPRISE 

00010 S4=1 

00020 DIM I¢25) 

00030 PRINT * DO YOU WANT INSTRUCTIONS (YES OR NO) "3 
00040 INFUT #AS 

00050 IF A$="NO" THEN 350 

00060 IF At="NO" THEN 350 

00070 Q=67 

00080 PRINT "WHILE ON PATROL NEAR TRISKILLION ~-7..." 
00090 PRINT "THE USS ENTERPRISE IS CONFRONTED BY" 

00100 PRINT "A KLINGON BATTLE CRUISE R® 
00110 REM 0120 PRINO110 REM 

00120 FRINT "TAB(20)3" " WEAPONRY" 

00130 REM 

00140 PRINT "2 FORWARD PHASER BANKS» RANGE?300/000 KM." 
O0150 PRINT "1 REAR FHASER: RANGE? SAME" 

00140 REM 


00180 PRINT "2 FORWARD FHOTON TORPEDO BANKS: RANGE!SAME* 


00200 FRINT "1 REAR PHOTON TORFEDO BANK, RANGE !SAME" 


00230 FRINT TAB(15)% "MANEUVERS '" 


00250 PRINT "1-FIRE FOWARD FPHASERS" 

00260 PRINT "2-FIRE REAR FHASRES" 

00270 PRINT "3-FIRE FOWARD FHOTON TORPEDO" 

00280 PRINT "4-FIRE REAR FHOTON TORFEDO" 

00290 PRINT "S-ACTIVE AUTO DESTRUCT" 

00300 FRINT "46~-SURRENDER" 

00310 PRINT "7-ATTEMFT TO BREAK CONTACT--GO INTO WARF DRIVE" 
00320 PRINT "8-MOVE CLOSER TO THE KLINGON" 

00330 FRINT 

00335 PRINT "ALL VECTOR HEADINGS WILL BE BETWEEN 0 AND 180 DEGREE 


00340 REM 


PROGRAM NAME? TREK/FRITKIN < CONT’D > 


00350 PRINT "KLINGON COMMING INTO RANGE-~-SHIELDS ON*® 
00360 READ ReHyPyXrArK1 9 MS | 
00370 DATA 85000107091997+330491 215000 
00380 REM | 
00390 REM 

00400 PRINT "WHAT IS YOUR COMPUTER DEFENSE NUMBER" 

00410 INPUT N2 

00420 IF N2*1 GOTO 400 

00430 IF N2>25 GOTO 400 

00440 REM 

00450 REM 

00460 FOR I=1 TO N2 

00470 B=RNICX) 

00480 NEXT I 

00490 GOSUB 1370 

00500 PRINT "THE RANGE ="#R#" KM. AT A VECTOR HEADING OF "#As" DE 

GREES * Nw 
00510 GOSUB 620 

00520 IF H>8 THEN 2560 

00530 IF E=6 GOTO 2700 

00540 IF E=5 GOTO 2610 

00550 IF R+1.00000E+46 THEN 2690 

00560 GOSUB 1100 

00570 IF F=8 GOTO 2610 

00580 IF K=? GOTO 500 

00590 GOTO 490 

00600 REM 

00610 REM 

00620 W=2 

00630 PRINT "WHAT IS YOUR MOVE'S 

00640 INFUT E 

00650 GOSUB 1490 

00660 IF Q>0 THEN 630 

00670 ON E GOTO 680%790781098502900%940+980+1030 

00680 IF A=90 THEN 730 

00690 B=RNDCX) 

00700 IF B>-.2 GOTO 770 

00705 REM THIS IS FOR THE FRONT PHASORS 

00710 PRINT “COMPLET MISS» YOUR AIM IS OFF" 
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PROGRAM NAME? TREK/FRITKIN < CONT’D ° 


00720 RETURN 

00730 PRINT "MISS» INCORRECT VECTOR ANGLE" 

00740 PRINT "REMEMBER THAT BETWEEN OAND9O DEGREES IS FOWART" 
00750 FRINT “AND THAT BETWEEN 90 ANDI 180 DEGREES IS REARWARD" 
00760 RETURN 

00770 GOSUR 2000 

00780 RETURN 

00790 IF Ax90 THEN 730 

00800 IF B>.4 GOTO 770 

00803 REM THIS IS FOR THE REAR FHASORS 

00805 GOTO 710 

00810 IF A>90 THEN 730 

00820 B=RNICX) 

00830 IF B>.1 GOTO 770 

00835 REM THIS IS FOR THE FRONT PHOTON TORPEDOES 

00840 GOTO 710 

00850 IF A<90 THEN 730 

00860 B=RNICX) 

00870 IF Bs.2 GOTO 770 

00875 REM THIS IS FOR THE REAR PHOTON TORPEDOES 

00880 GOTO 710 

00890 REM 

00900 PRINT TAB(20)5"A CT IVATE OD" 

00910 REM 

00920 PRINT "10 9 8 7 6 3 4 3 2 1 O* 

00930 RETURN 

00940 FRINT "ON BEHALF OF THE KLINGON EMPIRE » I ACCEPT YOUR SURR 
ENDER * 

00950 REM 

00960 PRINT TAB(20)%"PREPARE TO BE BOARDED" 

00970 RETURN 

00980 R=R+(200000. *XRNDC(X) ) 

00990 IF R«x1,Q00000E+06 THEN 1010 

01000 RETURN 

01010 FRINT "CONTACT NOT BROKENy NEW DISTANCE="sRs3" KM." 
01020 RETURN 

01030 IF R=200000. THEN 1060 

01040 R=R-200000. XRND(X) 

01050 RETURN 
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01060 R=R/2 

01070 RETURN 

01080 REM 

01090 REM 

01100 W=1 

01110 K=INT(C7KRNDICX) 41) 

01120 GOSUE 1490 

01130 IF N>O THEN 1110 

01140 ON K GOTO 1150» 1150%1180%118071180» 123071290 
01150 PRINT "KLINGON FIRES PHOTON TORPEDO" 
01160 GOSUE 2000 

01170 RETURN 

01180 PRINT “KLINGON FIRES PHASERS AT ENTERPRISE" 
01190 LET B=RNIVCX) 

01200 IF B>.2 THEN 1160 

01210 PRINT "YOU OUTMANEUVERED HIM, MISS." 
01220 RETURN 

01230 PRINT "KLINGON ATTEMTING TO BREAK CONTACT «+6+" 
01240 R=R+( 200000. XRNDC(X) > 

01250 IF R<1.-00000E+06 THEN 1270 

01240 RETURN 

01270 PRINT "CONTACT NOT BROKEN" 

01280 RETURN 

01290 PRINT "KLINGON APPROACHING ° 

01300 IF R<200000 THEN 1330 

01310 R=R-200000. XRNDICX) 

01320 RETURN 

01330 R=R/2 

01340 RETURN 

01350 REM 

013460 REM 

01370 B=RNDICX) 

01380 IF B>.S THEN 1410 

01390 R=R+(10000XRND CX) > 

01400 GOTO 1420 

01410 R=ABS(R-(LOOOOXRND(X))) 

01420 A=A4+(1LOOXKRNICX) > 

01430 IF A>180 THEN 1450 

01440 RETURN 
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PROGRAM NAME? TREK/FRITKIN < CONT‘D > 


01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
M." 

01400 
01410 
01620 
01430 
01640 
014650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 


A=A~-180 
GOTO 1430 
REM 

REM 


IF W=1 THEN 1750 

IF E<S THEN 1530 

Q=0 

RETURN 

IF Ex3 THEN 1700 

IF R“=20000. THEN 1590 
IF D=S THEN 1650 

IF R=20000. THEN 1590 
Q=0 

RETURN 

PRINT "THE RANGE OF A PHOTON TORPEDO IS 20000 TO 6007000 K 


GOTO 1670 

FRINT "YOUR PHASERS HAVE BEEN DESTROYED ALREADY" 
GOTO 1670 

PRINT "THE RANGE OF A PHASER IS 300/000 KM." 
GOTO 1670 

PRINT "YOUR WEAFONS HAVE BEEN DESTROYED ALREADY" 
GOTO 1670 

FRINT "MOVE IMPOSSIBLE»yTRY AGAIN" 

Q=1 

RETURN 

IF R>300000. THEN 1630 

IF D=4 THEN 1610 

IF D=5 THEN 1650 

Q=0 

RETURN 

IF K=S THEN 1880 

IF K=2 THEN 1840 

IF R=600000. THEN 1820 

IF R*M3 THEN 1820 

IF H>7 THEN 1820 

N=0 

RETURN 

N=1 
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01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02085 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 


RETURN 
IF R=300000. THEN 1820 


IF H*6 THEN 1820 
N=0 

RETURN 

IF P>Ht1 THEN 1950 


IF P*H-1 THEN 1920 

N=0 

RETURN 

IF K=7 THEN 1820 

N=O 

RETURN 

IF K=6 THEN 1820 

N=9 

RETURN 

REM 

REM 

B=RNIVCX)/K1/LOGCR/M3) 

IF B>.75 THEN 2120 

IF B>.1GOTO 2050 

PRINT "NEAR MISS" 

RETURN 

IF W=1 THEN 2085 

PRINT "HIT ON KLINGON BATTLE CRUISER" 
H=H+1 

GOTO 2380 

IF B«.4 GOTO 2030 

FRINT "HIT ON THE USS ENTERPRISE »DAMAGE REPORT-" 
P=F+1 

GOTO 2180 

IF W=1 THEN 21640 

FRINT "DIRECT HIT ON KLINGON VESSEL» DAMAGE REPORT~" 
H=H+2 

GOTO 2380 

PRINT "DIRECT HIT ON ENTERFRISEs DAMAGE REFORT-" 
FP=P+2 

IF Fe? THEN 2210 

n=1 

RETURN 
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02210 
02220 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02540 
FING" 
02550 
02560 
02570 

2580 


M NAME? TREK/FRITKIN < CONT‘D > 


IF P=6 THEN 2290 
IF P=7 THEN 2310 

IF P=8 THEN 2340 

IF P>3 THEN 2270 

PRINT "SHIELDS HOLDING-NO DAMAGE* 

RETURN 

PRINT "SHIELDS WEAKENING-MINOR DAMAGE IN MIDSHIPS® 
RETURN 

PRINT "ALL SHIELDS DESTROYED-DAMAGE TO OUTER HULL" 
RETURN 

n=4 

PRINT "FHASERS DEACTIVATED-DILITHIUM CRYSTALS OVERHEATING" 
RETURN 

D=5 

PRINT "ALL WEAPONS DESTROYED-POWER DROPFING* 

PRINT "MAJOR DAMAGE TO WARF ENGINES" 

RETURN 

IF H<9 THEN 2410 

D=8 

RETURN 

IF H=8 THEN 2530 

IF H=7 THEN 2510 

IF H=é THEN 2490 

IF H>3 THEN 2470 

PRINT "SHIELDS HOLDING-NO DAMAGE" 


RETURN 

PRINT “SHIELDS WEAKENING-MINOR DAMAGE" 

RETURN 

PRINT “ALL SHIELDS DESTROYED—HULL DAMAGE" 

RETURN 

PRINT "PHASER BANKS DESTROYED-MAJOR DAMAGE FORE AND AFT" 


RETURN 

D=7 

PRINT "ALL WEAPONS ON KLINGON VESSEL DEACTIVATED sPOWER DROF 
RETURN 

PRINT TARCIS)#"C ONGRATULATIONS*® 


FRINT 
PRINT "KLINGON VESSEL DESTROYED" 


A= 25 


Sad 


PROGRAM NAME? TREK/FRITKIN < CONT’D > 


02590 
02600 
02610 
02620 
024630 
02640 
02650 
024660 
02670 
02680 
02690 
02700 
02710 
Sty” 

02720 
02730 
02740 
02750 
027640 
02770 
02780 
02790 
02800 
02810 
02820 
02830 


oe 
** 


o 


PRINT 


GOTO 2700 
PRINT TAR(20)3 "ENTERPRISE DESTROYED" 


PRINT 


IF E=S THEN 2650 

D=1000KRNDEC(X)2GOTO 2660 

D=100000. *RNIICX) 

PRINT "RADIUS OF MATTER -ANTIMATTER EXPLOSION="s05" KM." 
IF Ret THEN 2580 

GOTO 2700 


FRINT 
PRINT 
PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
INFUT 


"CONTACT BROKEN» RETURN TO BASE" 
"AGAIN YES OR NO"iGOTO 2760 
"STAR FLEET HAS DETERMINED THAT YOU ARE TO BLOOD-THIR 


“THEREFORE? IT HAS BEEN DECIDED THAT YOU WILL NOT BE" 
"ALLOWED TO CONTINUE ON THIS RAMPAGE OF KILLING POOR" 
"LITTLE DEFENSELESS KLINGONS. ADMIRAL WESTLAKE» * 
"STAR FLEET COMMAND" {GOTO 2820 

vA 


RESTORE 

IF $4>=4 THEN 2710 

IF A$="YES* THEN 2810 
IF A$<>"YES" THEN 2820 
$4=S441iGOTO 350 


PRINT 
END 


* 
oo 


+ 
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oo 


4- 26 


oo 


V 


“Het Ue GS <€ GS XO >< F OK Tot WSK A OK OR >< E > 


FROGRAM NAME? FOOTBALL/COSTA 


00001 DIM M(7)2007)sWC7r7) 22614297) 2REM FOOTBAL/COSTA 7ONN BYTES 
00002 DIM G1¢7)2T1¢67) D107) eK107) oM1067) 20107) 

00003 DIM MS¢7) 20507) eWS0797)9Z5(1497) 

00004 DIM G6(7)*TSC7) D667) » R667) »MSCO7) 20607) 

00005 FOR A=0 TO 7 

00006 READ MCAD 

00007 NEXT A 

00009 DATA 69953%60%64766254250%756 

00010 FOR A=0 TO 7 

00011 READ MSC(A)d 

00012 NEXT A 

00014 DATA 38262952955 %64254259%69 

00015 FOR A=0 TO 7 

00016 READ OCA) 

00017 NEXT A 

00019 DATA 14925%21924918725%146730 

00020 FOR A=0 TO 7 

00021 READ OS¢A) 

00022 NEXT A 

00024 TATA 23918 221924925710919 225 

00025 FOR A=0 TO 7 

00026 FOR B=0 TO 7 

00027 READ WCArB) 

00028 NEXT B 

00029 NEXT A 

00041 DATA 7rOr21Sr-2xllr6r1299BvGe291 9-198 9 7997298 
00042 DATA Br4rSr3r5798r98s9Brl eS 320-5798 198298 
00043 DATA 228927077298 r9Ss9Br Sr Sr9 ell eS2r3710720 
00044 DATA 4912999 919155218 sS0r-LylO»8rl»6r2057142122 
00045 FOR A=0 TO 7 

00046 FOR B=0 TO 7 

00047 READ WSCA») 

00048 NEXT B&B 

00049 NEXT A 

00061 DATA 2227-4762 2097 2 25298r 3195909982 35+98298 
00062 DATA 1707022718 r9Br 98982 4s 3rhrb¥ 30x98 e 98298 
00063 DATA Sr424r 4225298 r9Br9B Br 7x Br 99s 291916998 
00064 DATA Orr-le2219 rhe 202220720914 r35210r27-1999182122 
00065 GOTO 30000 
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PROGRAM NAME? FOOTRALL/COSTA «= CONT‘D > 


00100 
00101 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00270 
00280 
00290 
0029S 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00362 
00364 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 


GOTO 60000 

PRINT “TEAM #1 VS TEAM #2° 
PRINT 

A=INTCLOOXRNDC1) +1 

IF A®S1 THEN 180 


PRINT "TEAM #2 HAS WON THE TOSS AND ELECTS TO RECEIVE" 


R=1 
C=1 
GOTO 210 


FRINT "TEAM #1 HAS WON THE TOSS AND ELECTS TO RECEIVE" 


B=0 


NT 


co 


oS 


C=0 
FRI 
D=0 
E=0 
F=1 
G=1 
H=4 
I=1 
J=1 
R=0 
GOS 


UB 9000 

GOTO 50000 

H=H+L 

IF Ht=100 THEN 370 
GOSUB 10300 

H=80 

GOSUBR 9700 

IF R=1 THEN 270 
GOTO 600 

GOSUB 9000 

GOTO 50010 

IF N=101 THEN 480 
N=N-100 

H=H~N 

GOSUB 9500 

IF P=0 THEN 472 
H=100-H 

GOSUB 9700 
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00460 IF R=1 THEN 270 
00470 GOTO 600 

00472 GOSUB 10300 

00474 GOTO 360 

00480 H=H-N 

00490 GOSUB 10300 

00500 IF H>0 THEN 540 
00510 GOSUB 10500 

00520 GOSUR 9700 

00530 GOTO 270 

00540 IF H<101 THEN 580 
00550 GOSUB 10700 

00560 GOSUR 9700 

00570 GOTO 280 

00580 GOSUB 9700 

00590 IF R=1 THEN 270 
00600 INPUT "OFFENSIVE PLAY"$T 
00610 INPUT “DEFENSIVE FLAY"$U 
00615 FRINT 

00620 IF T=? THEN 600 
00630 IF U=0 THEN 700 
00640 IF U=1 THEN 670 
00650 IF U=2 THEN 680 
00660 GOTO 410 

00670 U=U+4 

00675 GOTO 700 

00680 U=U+t8 

00685 GOTO 700 

00700 IF T=8 THEN 1690 
00710 IF T=9 THEN 2160 
00720 GOSUB 9000 

00730 GOTO 50020 

00740 A=INTCLOOKRND(1)) 44 
00750 IF A<23 THEN 810 
00760 IF A<S1 THEN 830 
00770 IF A<84 THEN 850 
00780 IF A<95 THEN 870 
00790 X=4 

00800 GOTO 880 
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FROGRAM NAME? FOOTBALL/COSTA «= CONT’D = 


00810 X=0 

00820 GOTO 880 

00830 X=1 

00840 GOTO 880 

00850 X=2 

00860 GOTO 880 

00870 X=3 

00880 GOTO 50030 

00890 IF V>100 THEN 930 
00900 IF Vr-101 THEN 1040 
00910 V=V4100 

00920 GOTO 940 

00930 IF V<200 THEN 932 
00931 GOTO 1040 

00932 V=V-100 

00940 GOSUB 9500 

00950 H=H-V 

00960 J=J-V 

00970 IF P=0 THEN 1150 
00980 GOSUB 10300 

00990 I=1 

01000 J=10 

01010 IF H>0 THEN 1030 
01020 GOTO 350 

01030 IF H<101 THEN S80 
01035 GOTO 510 

01040 IF Y=97 THEN 1280 
01050 IF Y=98 THEN 1210 
01060 IF Y*200 THEN 13970 
01070 IF Y=100 THEN 1580 
01080 IF Y<-100 THEN 1600 
01090 IF V=99 THEN 1640 
01100 IF V=98 THEN 1210 
01110 IF V=97 THEN 1280 
01120 IF V>200 THEN 1410 
01130 H=H-(V+Y) 

01140 J=J-CVU+tY) 

01150 IF H*100 THEN S50 
011460 IF Hii THEN S10 
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PROGRAM NAME? FOOTBALL/COSTA < CONT’D > 


01170 IF J>0 THEN 1210 
01180 I=1 

01190 J=10 

01200 GOTO 580 

01210 I=I+t1 

01220 IF I<5 THEN 580 
01230 GOSUB 10300 

01240 H=100-H 

01250 I=1 

01260 J=10 

01270 GOTO 580 

01280 GOSUB 9000 

01290 GOTO 50040 

01300 IF C1>100 THEN 1350 
01310 IF C1<-100 THEN 1370 
01320 H=H-C1 

01330 J=J-C1 

01340 GOTO 1150 

01350 V=C1~-100 

01360 GOTO 940 

01370 V=C1+100 

01380 GOTO 9406 

01390 E1=Y-200 

01400 GOTO 1420 

01410 E1=V-200 

01420 H=H~-E1 

01430 H=100~H 

01440 PRINT "PASS INTERCEPTED" 
01445 PRINT 

01450 IF H=100 THEN 1572 
01460 [=1 

01470 J=10 

01480 GOSUBR 9000 

01490 GOTO S0050 

O1500 IF Fi<i01 THEN 1530 
01510 N=F1-100 

01520 GOTO 410 

01530 H=H-F1 

01540 GOSUB 10300 
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FROGRAM NAME? FOOTBALL/COSTA < CONT’D > 


01550 
01560 
01570 
01571 
01572 
01573 
01574 
01575 
01576 
01577 
01580 
01599 
01600 
01610 
01620 
014630 
01640 
01650 
014690 
01670 
01480 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 


IF H<1 THEN 510 

IF H>100 THEN 550 
GOTO S80 

IF H<111 THEN 1575 
H=100-H 

H=H+E1 

GOTO 1210 

I=1 

J=10 

GOTO 340 

Y=Y-100 

GOTO 1610 

Y=Y¥+100 

H=H-Y 

J=J-Y 

GOTO 1150 

GOSUB 9000 

GOTO 50060 
H=H~¢H1-Y) 
J=J-CH1-Y) 

GOTO 1150 

GOSUB 9000 

GOTO 50070 

IF Ji>300 THEN 1980 
IF Ji2200 THEN 2060 
IF Jix-100 THEN 2140 
H=H~J1 

H=100-H 

T=1 

J=10 

IF H=100 THEN 340 
GOSUBR 9000 

GOTO 50080 

IF Li>100 THEN 1880 
IF Liz-100 THEN 1900 
H=H~L.1 

GOSUB 10300 

IF H*100 THEN 550 
IF H=i THEN 510 
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PROGRAM NAME: FOOTBALL/COSTA < CONT‘D > 


01870 GOTO S80 

01880 Li=L1-100 

01890 GOTO 1910 

01900 Li=L1i+100 

01910 GOSUB 9500 

01920 IF P=0 THEN 1830 
01930 H=H-L1 

01940 IF H>100 THEN 510 
01950 IF H<O THEN 350 
01960 H=100-H 

01970 GOTO S80 

01980 J1l=J1-300 

01990 H=H-J1 

02000 H=100-H 

02010 I=1 

02020 J=10 

02030 IF H>100 THEN 340 
02040 GOSUB 10300 

02050 GOTO 580 

02060 J1=J1~-200 

02070 H=HtJ1 

02080 J=J+tJ1 

02090 PRINT "PUNT BLOCKED" 
02100 PRINT 

02110 IF H<101 THEN 1170 
02120 GOSUB 10300 

02130 GOTO 510 

02140 V=J14+100 

02150 GOTO 740 

02160 GOSUBR 9000 

02170 GOTO 50090 

02180 IF N1>200 THEN 2380 
02190 P1=H-N1 

02200 IF P1>0 THEN 2310 
02210 IF B=0 THEN 2250 
02220 FRINT “TEAM #1 FIELD GOAL!* 
02230 E=Et3 

02240 GOTO 2270 

02250 PRINT "TEAM #2 FIELD GOAL!" 
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PROGRAM NAME? FOOTBALL/COSTA < CONT’D > 


02260 D=Dt3 

02270 PRINT 

02280 S=1 

02290 GOSUB 9700 

02300 GOTO 270 

02310 PRINT “FIELD GOAL MISSED" 
02320 PRINT 

02330 GOSUB 10300 

02340 I=1 

02350 J=10 

02360 H=100-H 

02370 GOTO 340 

02380 PRINT “FIELD GOAL BLOCKED" 
02390 PRINT 

02400 H=H+tN1-200 

02410 GOTO 2330 

09000 A=INTCLOOXRND(1))41 
09010 IF A<18 THEN 9050 
09020 IF A=S1 THEN 9070 
09030 K=20 

09040 GOTO 9080 

09050 K=0 

07060 GOTO 9080 

09070 K=10 

07080 A=INTCLOOXRND(1))+1 
09090 IF A<34 THEN 9200 
07100 IF A<S1 THEN 9150 
09110 IF A<68 THEN 9170 
09120 IF A<85 THEN 9190 
09130 K=K+4 

09140 GOTO 9200 

09150 K=Kt1 

09160 GOTO 9200 

09170 K=Kt2 

09180 GOTO 9200 

09190 K=K+3 

09200 A=INTCLOOXRND(1))41 
09210 IF A*18 THEN 9350 
09220 IF A<35 THEN 9280 
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PROGRAM NAME? FOOTBALL/COSTA < CONT’‘’D > 


09230 
09240 
09250 
092460 
09270 
09280 
09290 
09300 
09310 
09320 
09330 
09340 
09350 
09360 
09370 
09380 
09500 
09510 
09520 
09530 
09540 
09550 
09560 
093570 
09580 
09590 
09700 
09710 
09720 
09730 
09740 
09750 
09760 
09770 
09780 
09790 
09800 
09810 
09820 


IF A“S2 THEN 9300 
IF A<69 THEN 9320 
IF A<85 THEN 9340 
K=K+5 

GOTO 9350 

K=K+1 

GOTO 9350 

K=K+2 

GOTO 9350 

K=K+3 

GOTO 9350 

KR=K+4 

IF K>21 THEN 9370 
GOTO 3000 

K=K~-22 

RETURN 
A=INTCLOOXRNDC1))41 
IF A<S1 THEN 9540 
P=1 

PRINT "FUMBLE LOST" 
PRINT 

RETURN 

P=0 

FRINT "FUMBLE RECOVERED" 
PRINT 

RETURN 

R=0 

F=F-.5 

IF F<>0 THEN 9880 
F=15 

G=Gt1 

IF Ge>S THEN 9790 
PRINT “FINAL SCORE? TEAM #1 “FE5" TEAM #2 “sD 


IF Ge>3 THEN 9880 

PRINT “HALFTIME: TEAM #1 "SE" TEAM #2 "SD 
PRINT 

IF C=0 THEN 9850 
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PROGRA 


09830 
09835 
09840 
09850 
09855 
09860 
09870 
09880 
09890 
07900 
09910 
09920 
09930 
09940 
09940 
09970 
09975 
09980 
09985 
09990 
10000 
10010 
10300 
10310 
10320 
10330 
10340 
10500 
10510 
10520 
10530 
10540 
10550 
10560 
10570 
10580 
10590 
10600 
10610 


M NAME? FOOTBALL/COSTA = CONT‘D > 


RBHwWO|HD 
min io 
4HROR GOS 


IF S=0 THEN 9910 

$=0 

GOTO 9940 

IF B=1 THEN 9940 

FRINT "TEAM #2°S BALL" 
GOTO 9960 

FRINT "TEAM #1°S BALL" 
FRINT “QUARTER: °G 

PRINT "MINUTES LEFT? "¢F 
PRINT "YARD LINE? "3H 
PRINT "DOWN" $T 

FRINT "YARDS TO GO?"sJ 
PRINT "SCORE? TEAM #1 "SEs" 
FRINT 

RETURN 

IF B=O THEN 10330 

B=0 

RETURN 

B=1 

RETURN 

IF B=0 THEN 10540 

FRINT "TEAM #1 TOUCHDOWN! * 
E=E+7 

GOTO 10560 

PRINT "TEAM #2 TOUCHDOWN! " 
D=D+7 

PRINT 

S$=1 

H=40 

T=1 

J=10 

RETURN 
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PROGRAM NAME? FOOTBALL/COSTA < CONT’D > 


10700 
10710 
10720 
10730 
10740 
10750 
10760 
10770 
10780 
10790 
10800 
10810 
30000 
30001 
30002 
$0003 
30004 
30005 
30006 
30007 
30008 
30009 
30010 
30011 
30012 
30020 
30021 
$0022 
30023 
30024 
30025 
30026 
30027 
30028 
30029 
30030 
30031 
30032 
30040 


IF B 
PRIN 
D=D+ 
GOTO 
PRIN 
E=E+ 
FRIN 
$=1 

H=20 
I=1 

J=10 
RETU 
FOR 

FOR 

READ 
NEXT 
NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
FOR 

FOR 

READ 
NEXT 
NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
FOR 


=Q THEN 10740 

T "TEAM #2 SAFETY! * 

bd? ) 
10760 

T "TEAM #1 SAFETY!" 

7 

- 

RN 

A=0 TO 14 

B=0 TO 7 
Z(AsB) 

B 

A 
OvOe—-LrOv7e-3e11620 9-29-1019 -12x-101909020%0 
Ovy—LeO9-Ly LOZ y-L e972 O0e-1LyOvsOxrOrOr0v1159147 
Or-2 70720202 9B9114 21 30r0r09—-Le 220209593 
O»-101 20909 29070r-2ely-1¥101909106298x98 998 
OrOr-2702099B xr Or Or1ly—-2y-1Lel 90s 208909-2 
29D Ov LOS rOvr4rPBrxl vy OvrOvrOvl er 3x 9Be 5 
LrOr~-LelyOx290r-49 Or Lr OrloleOr0997 
Ov19O9120%2067070 

A=0 TO 14 

R=0 TO 7 
ZS(ArB) 
RB 
A 
OvOx0xrOe-L9e~39OrOrOr0r02-101 90r0x12090 
~1012020909-3x Ox 119s 1309-19 -2909-2 709070250 
0209290298 9104 9022355919 SrOvOxr-Se-LeOerl 
Ov 32-101 OrO0r0r02 0207 2902-101 2-490%020 
Or29-29-3xO0910S 211 Sr Orly de-Le-Ly98s97 20997 
Sr SvOrOr—-2xrOvOy-Pv4y2rOrO0r-3¥Or090 
Ov2e-LOLsy-1Le-4x1O07 20x98 er 2909-Le—-1leO0r02090 
Lly29O9~-19090209225 

A=0 TO 7 
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FROGRAM NAME? FOOTBALL/COSTA < CONT‘’D > 


30041 READ G&A) 

30042 NEXT A 

30044 DATA 1492590709090 935225 

30045 FOR A=0 TO 7 

30046 READ G1¢A)d 

30047 NEXT A 

30049 DATA 137670907020 %911917 

30050 FOR A=0 TO 7 

30051 READ I1¢Ad 

30052 NEXT A 

30054 DATA 25 222%21723%924926227 949 
30055 FOR A=0 TO 7 

30056 READ I6 (A) 

30057 NEXT A 

30059 DATA 21%23%20%24923 722929949 
30060 FOR A=0O TO 7 

30061 READ DIA) 

300462 NEXT A 

30064 DATA ~1069-79-10e-112-B8239-10%7-1 
30065 FOR A=0 TO 7 

30066 READ D4(A) 

30047 NEXT A 

30069 DATA -129-109-1119-79-49-Se-1i:-12 
30070 FOR A=0 TO 7 

30071 READ K1¢A) 

30072 NEXT A 

30074 DATA 3342929746937 9 347 94993329332 
30075 FOR A=0 TO 7 

30076 REAL K4&(A) 

30077 NEXT A 

30079 DATA 3993482332951 24873439325 736 
30080 FOR A=0 TO 7 

30081 READ M1(A) 

30082 NEXT A 

30084 DATA ~-1Lr-3919020777398 

30085 FOR A=0 TO 7 

30086 READ M&C(A) 

30087 NEXT A 

30089 DATA 232029%9-491019108%2097 
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PROGRAM NAME? FOOTBALL/COSTA < CONT‘D > 


30090 
300971 
30092 
30094 
3009S 
30096 
30097 
30099 
30100 
530000 
90001 
90002 
30003 
30004 
90010 
J0011 
50012 
30013 
30014 
30020 
90021 
30022 
30023 
50024 
30030 
90031 
90032 
90033 
30034 
30040 
30041 
30042 
30043 
50044 
30050 
90051 
TOOS2 
90053 
30054 


USo< G> <S >< 0 >< F >< T >< WOOK 


FOR A=0 TO 7 

READ O1¢A) 

NEXT A 

TATA 43935%40240246225 911931 
FOR A=0O TO 7 

READ O46¢A)D 

NEXT A 

DATA 26745%47%40»30%39¥24912 
GOTO 100 

IF B=0 THEN 30003 
L=M(K) 

GOTO 320 

L=MSCK) 

GOTO 320 

IF B=0 THEN 50013 
N=O05(K> 

GOTO 390 

N=0(K) 

GOTO 390 

IF B=0 THEN 50023 
VeW (Ry T) 

GOTO 740 

VeWS(K eT) 

GOTO 740 

IF B=Q THEN 530033 
Y=ZS(U+X+T) 

GOTO 890 
Y=Z(U+tXeT) 

GOTO 890 

IF B=0 THEN 50043 
Ci=D1i(K)> 

GOTO 1300 
C1=D6¢(K) 

GOTO 1300 

IF B=0 THEN 50053 
Fi=Gé6(K) 

GOTO 1500 
Fil=G1(K) 

GOTO 1500 


4- 39 


A >< 


R 


Pe Ee : 


S<H><U>G> <> SF pS Tod WOOK A DK R OS ED 
PROGRAM NAME! FOOTRALL/COSTA « CONT‘D > 

50060 IF B=0 THEN 50063 

50061 H1=I1(K) 

50062 GOTO 1660 

§0063 H1=16(K) 

50064 GOTO 1660 

50070 IF B=0 THEN 50073 

S0071 J1=K1(K) 

§0072 GOTO 1710 

50073 J1=K4(K) 

50074 GOTO 1710 

50080 IF B=0 THEN 50083 

50081 Li=Mé(K) 

§0082 GOTO 1810 

§0083 L1i=M1(K) 

50084 GOTO 1810 

§0090 IF B=0 THEN 50093 

50091 N1=01(K) 

§0092 GOTO 2180 

50093 N1=06(K) 

50094 GOTO 2180 

60000 PRINT "THIS FOOTBALL GAME HAS 10 OFFENSIVE PLAYS3* 
60020 PRINT "0 LINE PLUNGE* 

60025 FRINT "1 OFF TACKLE" 

60030 PRINT "2 END RUN" 

60035 PRINT °3 RAW" 

60040 FRINT "4 SCREEN® 

60045 PRINT "5S SHORT FASS" 

60050 PRINT "6 MEDIUM FASS" 

60055 PRINT "7 LONG PASS" 

60056 PRINT "8 PUNT" 

60057 FRINT "9 FIELD GOAL FAUSE-STRIKE KEY" !PAUS 
E 

60060 PRINT "THERE ARE 3 DEFENSIVE PLAYS?" 

60070 FRINT "0 SHORT YARDAGE" 

60075 PRINT "1 FASS PREVENT SHORT" 
60080 FRINT "2 FASS PREVENT LONG* 
60100 PRINT tPRINT "CHOOSE SIDES AND GOOD LUCK!" 
60102 PRINT {PRINT 

60105 PRINT tPRINT {PRINT "FAUSE~STRIKE KEY" PAUSE 
60115 GOTO 101 
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FROGRAM NAME? BINGO/NAIMO 


00001 REM BINGO/NAIMO 

00002 REM 3634 BYTES 

00100 PRINT * KK BINGO xx" 
00110 FRINT * BY NICHOLAS J NATMO* 
00120 PRINT ¢{PRINT 

00130 REM THIS IS THE MAIN FROGRAM 

00140 REM 

00150 F=RNDC1) 

00160 PRINT 

00170 PRINT "YOU ARE NOW GOING TO PLAY A COMPUTERIZED VERSION OF 
BINGO-~* 

00171 PRINT 

00172 FRINT "SET FAPER» PRESS ‘SPACEBAR’ KEY WHEN READY," 
00173 FAUSE 

00174 FOR Zi=1 TO 103PRINT {NEXT Z1 

00180 F=1 

00190 V=O 

00200 W=0 

00210 DIM B(10%10) 

00220 DIM L.(75)sA$(5) 

00230 RESTORE 

00240 READ A$(1) rA$(2) ¥ASC3) ¥ASC4) PASC) 

00250 DATA EB "»+"I “"y"N "9"G "y"Q * 

00260 REM THIS SEQUENCE GENERATES THE CARI) NUMBERS (LINES 240-4 
30) 

00270 FOR Ki=1 TO 75 

00280 L(K1)=0 

00290 NEXT Ki 

00300 FRINT " "y* HERE’S "3 

00310 IF F>1 THEN 340 

00320 PRINT "YOUR CARD" 

00330 GOTO 350 

00340 PRINT "MY CART" 

00350 M=16 

00360 G=F+t4 

00370 FOR Y=F TO G 

00380 FOR X=F TO G 

00390 LET R=INT(MKRND(X)) 

00400 IF R<M-15 THEN 390 
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FROGRAM NAME? BINGO/NAIMO «< CONT’D > 


IF L¢(R)<>0 THEN 390 

R(X Y)=R 

L(R)=1 

NEXT X 

M=Mt15 

NEXT Y 

REM THIS SEQUENCE PRINTS THE CART (LINES 440-670) 
PRINT 

PRINT "-B-"9"-I-"9"-No"e "Ge" 2" -O~-" 

FOR X=F TO G 

PRINT 

REM ADL PRINT STATEMENT HERE FOR EXTRA SPACE BETWEEN LINE 


PRINT 


25 FRINT :FRINT 


tee beer eens once nee ones 


00730 


FOR Y=F TO G 

IF B(XsY)=B(F+t29F+2) THEN S80 

PRINT BCX2Y)» 

GOTO S90 

FRINT TAB(24)5"FREE"» 

NEXT Y 

NEXT X 

PRINT 

REM ADD PRINT STATEMENT HERE FOR EXTRA SPACE AFTER LAST L 


PRINT SPRINT ¢PRINT 


FRINT * (TEAR OFF AFTER MACHINE AUTOMATICALLY ADVANCES PA 


FOR K9=1 TO 9 

PRINT 

NEXT K9 

IF F=4 THEN 720 

F=6 

GOTO 270 

FRINT 

PRINT "NOW WE’RE ALL SET TO PLAY THE GAME. USE A PENCIL TO 


MARK OFF" 


00740 


PRINT "THE NUMBERS ON YOUR CART AS THEY ARE CALLED. * 
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PROGRAM NAME? BINGO/NAIMO < CONT’D > 


00750 FRINT " > PLEASE PLAY MY CARD AS WELL AS YOUR OWN, * 
00760 PRINT "JUST TO KEEP EVERYTHING HONEST I WILL BE KEEPING TRA 
CK OF THE" 

00770 PRINT "ENTIRE GAME ELECTRONICALLY..." 

00780 PRINT 

00790 LINE INFUT "ARE YOU READY? "$R¢ 

00810 IF R$<>"NO" THEN 850 

00820 FRINT 

00830 PRINT "GOGO OKKX HURRY UP FOO KK" 

00840 GOTO 780 

00850 REM 

00860 FOR Ki=1 TO 75 

00870 L(K1)=0 

00880 NEXT K1 

00890 FRINT 

00900 B(33)=0 

00910 B(8*98)=0 

00920 REM THIS SEQUENCE GENERATES THE BINGO NUMBERS (LINES 880 
~ 1100) 

00930 LET U=INT(75XRNDCX) 41 

00940 IF L(U)<20 THEN 930 

00950 L«(Ud=1 

00960 PRINT 

00970 IF RNDICX)=.2 THEN 1000 

00980 FRINT "IT COMES UP!*»+TAB(20) >, 

00990 GOTO 1100 

01000 IF RNDCX)>.4 THEN 1030 

01010 PRINT “NUMBER IS?"yTAB(20), 

01020 GOTO 1100 

01030 IF RNICX)>.6 THEN 1060 

01040 PRINT "WE HAVE At"»TAB(20)>, 

01050 GOTO 1100 

01060 IF RNDICX)>.8 THEN 1090 

O1070 FRINT "IT’S At"»TABR(20), 

01080 GOTO 1100 

01090 PRINT "THE NEXT IS%*sTABR(20), 

01100 PRINT AS$CINTCCU-1)/15)41)3U 

01110 REM THIS IS THE “NUMBER ON CARD?" SEQUENCE (LINES 1110-12 
60) 

01120 FOR Y=1 TO 10 
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FROGRAM NAME? BINGO/NAIMO « CONT’D > 


FOR X=1 TO 10 

IF B(XvY)=U THEN 1260 
NEXT X 

NEXT Y 

F=1 

GOSUB 1310 

F=6 

GOSUB 1310 

IF V=O THEN 1240 

IF W=1 THEN 1950 

GOTO 2050 

IF W=0 THEN 930 

GOTO 2130 

B(X*sY)=0 

GOTO 1150 

REM THIS IS THE BINGO DETERMINING SEQUENCE (LINES 1270-19 


PRINT 
REM THIS IS THE VERTICAL CHECK FOR BINGO (LINES 1270-1430 


G=F +4 

FOR Y=F TO G 

FOR X=F TO G 

IF B(XsY)<20 THEN 1460 

IF X<F+4 THEN 1450 

IF F=6 THEN 1410 

PRINT 

FRINT "YOU’VE GOT A KKKK BIN GO KKK" 
W=1 

RETURN 

PRINT 

PRINT "I’VE GOT A KKKK BIN GO KKK" 
V=1 

GOTO 1470 

NEXT X 

NEXT Y 

REM THIS 18 THE HORIZONTAL CHECK FOR BINGO (LINES 1450-16 


G=F+4 
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PROGRA 


01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
014630 
01640 
1770) 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
950) 

01800 
01810 
01820 
01830 
01840 
01850 


M NAME? BINGO/NAIMO < CONT‘’D > 


FOR X=F TO G 

FOR Y=F TO G 

IF B(X*#Y)<>0 THEN 1630 

IF Y<F+4 THEN 1620 

IF F=6 THEN 1580 

PRINT 

PRINT "YOU’VE GOT A KAXK BINGO x&kKK" 
W=1 

RETURN 

PRINT 

PRINT "I’VE GOT A KKK BINGO xkxx" 
V=1 

GOTO 1650 

NEXT Y 

NEXT X 


REM THIS IS THE SLANT CHECK (M=~-1) FOR BINGO (LINES 1620- 


X=F 

Y=F 

IF B(XsY)<>0 THEN 1790 

X=X+1 

Y=Yt1 

IF Y<F+5 THEN 1670 

IF Y=11 THEN 1760 

W=1 

PRINT 

PRINT "YOU’VE GOT A XXX RINGO x&kKK*" 
RETURN 

PRINT "I’VE GOT A *KKX BINGO &kKKK® 
V=1 

RETURN 


REM THIS IS THE SLANT CHECK (M=1) FOR BINGO (LINES 1780-1 


X=F+4 
Y=F 

IF B(XxY)<>0 THEN 1930 
X=X~1 

Y=Y+1 

IF Y<F+5 THEN 1820 
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CHR UD C> < SF 2 OOK F OK T OS Wot A >< ROK E > 
PROGRAM NAME$ BINGO/NAIMO < CONT‘’D = 

01860 IF Y=11 THEN 19710 

01870 PRINT 

01880 FRINT "YOU’VE GOT A KKKK BIN GO &kKK" 


01890 W=1 

01900 RETURN 

01910 PRINT 

01920 V=1 

01930 RETURN 

01940 REM THIS IS THE TIE PRINTOUT SEQUENCE 
01950 PRINT 

01960 PRINT * xO =oIT’S A TIE OOK" 
01970 REM THIS IS THE PLAY AGAIN SEQUENCE 
01980 PRINT 

01990 PRINT "DO YOU WANT TO PLAY AGAIN" 
02000 LINE INPUT "? "#ES 

02010 PRINT 

02020 IF E$="YES" THEN CLEAR GOTO 180 
02030 STOP 

02040 REM THIS IS THE "I WIN" SEQUENCE 
02050 PRINT 

02060 FOR S=1 TO 6 

02070 PRINT “I WINe “9 

02080 NEXT S 

02090 PRINT 

02100 PRINT 

02110 GOTO 1980 

02120 REM THIS IS THE “YOU WIN" SEQUENCE 
02130 PRINT 


02140 PRINT * YOU WINe ess YOU WINseos YOU WINs e+e” 
02150 GOTO 1980 

02160 REM 

02170 END 
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PROGRAM NAME? GAME OF LIFE/NORTH 


00001 REM 2502 BYTES 

00010 "NAME"="THE GAME OF LIFE--VERSION 1.03--3/12/78--BY DEAN NO 
RTH" 

00011 REM *XxXD & H ENTERPRISES» 47-637 HUI ULILI ST.» KANEOHE»: HI 
+ P&744KKK 

00012 REM *XXXDEAN NORTH, PROF. PHONE (808) 239-7233Kkxk 

00013 REM 

00014 REM BECAUSE OF THE WORK INVOLVED»: EACH GENERATION TAKES AB 
OUT 2 MINUTES 

00015 REM 

00020 CLEAR 

00023 REM THIS TURNS OFF THE HARDWARE CLOCK TO LET THE FROGRAM RU 
N FASTER 

00025 CNTRL 490 

00030 DIM A$(5240) 2 R$(5%40) 

00035 REM PRINT THE INTRODUCTION ANDI INSTRUCTIONS 

00040 FRINT "THIS IS THE GAME OF LIFE. IT REPRESENTS SUCCESSIVE G 
ENERATIONS OF * 

00050 FRINT "A SFECIES IN A 5S ROW BY 40 COLUMN (200 CELL) WORLD, 
YOU SET THE INITIALLY" 

00060 FRINT “OCCUPIED CELLS AND) THEN THE COMPUTER DEVELOPES SUCCE 
EQDING GENERATIONS" 

00070 PRINT "ACCORDING TO THE RULES OUTLINED IN SCIENTIFIC AMERIC 
AN? EVERY CELL" 

00080 FRINT “WITH 2 OR 3 NEIGHBORS WILL SURVIVE, EVERY CELL WITH 
4 OR MORE NEIGHBORS" 

00090 FRINT "DIES FROM OVER-FOPULATION ANDI EVERY CELL WITH 1 OR N 
0 NEIGHBORS DIES" 

00100 FRINT “FROM ISOLATION. EVERY EMPTY CELL WITH EXACTLY 3 NEIG 
HBORS IS A BIRTH" 

00110 FRINT "CELL AND A NEW MEMBER WILL BE BORN THERE IN THE NEXT 
GENERATION, * 

OO115 FRINT "LIFE IS REPRESENTED BY AN ’0’» DEATH BY AN ’X’%» AND 
BIRTH BY A ‘B’." 

00116 PRINT "WHEN YOU ARE THROUGH WITH THE GAME» ENTER CONTROL/C 
TO END IT." 

00118 REM ASK FOR USER INPUTS TO START AND SET UP INITIAL GENERAT 
ION MATRIX 

00120 INPUT "HOW MANY CELLS DO YOU WANT TO FILL INITIALLY? "#X 
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FROGRAM NAME? GAME OF LIFE/NORTH =< CONT’D > 


00130 FOR t=1TO X?INFUT "ROW (1 TO 5S)» COLUMN (1 TO 40) TO FILL W 
ITH LIFE? "sIeJ 

00135 AS$(IyJ)="0" 

00140 NEXT 0 

00143 REM FRINT THE FIRST GENERATION MATRIX AND INITIALIZE THE G 
ENERATION COUNT 

00145 FRINT TAB(26)s"THIS IS THE FIRST GENERATION: "2 Y=1 

00150 FOR I[=1TO 5 

00160 FOR J=1TO 40 

00165 REM IF A CELL IS EMPTY OR FULL FRINT THE APPROPRIATE SPACE 


+) 

00170 IF AS(TxJ)=""THEN PRINT * "33GOTO 190 

OO180 FRINT AS(TxJ)5" "3 

00190 NEXT JSNEXT I 

00195 REM ADD TO GENERATION COUNTER 

00200 Y=Yt1 

00203 REM SET UF A SECOND MATRIX TO FORM A CLEAN BASE FOR THE NE 
XT GENERATION 

00205 FOR I[=1TO 3 

00210 FOR J=1TO 40 

00230 IF AS(IrJ)=""THEN 265 

00240 IF AS$(T»J)="X"THEN 265 

00260 BS(IsJ)="O"SGOTO 270 

00265 BS(IyJ)="" 

00270 NEXT J2NEXT I 

00295 REM SCAN EACH CELL IN THE SECOND MATRIX AND COUNT IT’S NEI 
GHEBORS 

002946 REM AND DETERMINE IF IT’S FULL IF IT WILL SURVIVE AND IF I 
T’°S EMPTY 

00297 REM IF IT WILL BE A BIRTH CELL 

00300 FOR IT=1TO 5S 

00310 FOR J=1TO 40 

00315 T=0 

00320 IF B¢(I-1/J-1)="O"THEN T=1 

00330 IF BS(I-1»J)="O" THEN T=Tt1 

00340 IF Bé(IyJ-1)="O" THEN T=T+1 

00350 IF J=40THEN 380 

00360 IF BS(I-lyJ+t1)="O"THEN T=T+1 

00370 IF BS(IeJt1)="O" THEN T=Ttl 
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PROGRAM NAME? GAME OF LIFE/NORTH = CONT‘’D = 


00380 IF I=STHEN 410 

00385 IF B¢(ItirJ-1)="O"THEN T=Tt1 

00390 IF BS(It1lrJ)="O" THEN T=Tt1 

00395 IF J=40THEN 410 

00398 REM ENTER THE AFPROPRIATE SYMBOL IN THE GENERATION PRINT 
ATRIX 

00400 IF BS(ItirvJt1)="O"THEN T=Tt1 

00410 IF BS(IyJ)="O"THEN 420 

00415 IF T=3THEN AS$(IeJ)="B"3GOTO 450 

00417 LET A$(TxJ)=""iGOTO 450 

00420 IF T<2THEN A$(IyJ)="X"3GOTO 450 

00430 IF T=3THEN A$(TxJ)="X"*3GOTO 450 

00440 LET AS$(I*J)="0" 

00450 NEXT JiNEXT I 

00453 REM THIS STARTS THE PRINT ROUTINE 

00455 PRINT TAB(26)3"THIS IS GENERATION NUMBER"5Y9 "3" 
00520 GOTO 150 

00530 END 
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FROGRAM NAME? SLOT/KEBABRJIAN 


00001 PRINT $PRINT ?{PRINT $PRINT 

00002 REM SLOT/KEBABJIAN 

00003 REM FOR EVERY $8000 IN RETURN OF $9664 

00010 FRINT "THIS IS A ONE DOLLAR SLOT MACHINE" 

00020 PRINT "TO FLAY FUSH THE SPACE BAR FOR EACH SPIN OF THE MACH 
INE" 

00040 PRINT "YOU WILL BE TOLD HOW MUCH YOU ARE WINNING OR LOSING 
AFTER EVERY“ 

00041 PRINT "TEN SPINS" 

00042 PAUSE (3000)2FRINT {PRINT $PRINT 

00044 PRINT “WINNING COMBINATIONS ARE —* 


00046 PRINT * 7 7 7 = $100" 
00048 FRINT ‘=== =o om = $50" 
00050 PRINT "$20 $20 $20 = $20" 
00052 FRINT "$1 $10 $10 = $10" 
00054 PRINT  "40kx KK 10KK = $8" 
00058 PRINT  "x4x 40K = $4" 
00060 PRINT  "30Kx = $2° 


00062 FAUSE 

00064 PRINT {PRINT t{ PRINT $PRINT 
00080 GOTO 100 

00090 LET R=R+1 

00094 LET Y=Y+1 

00095 IF R=10 THEN PRINT “AFTER "#Y%" GAMES» YOU HAVE $"*$TtFRINT 
sFRINT 

00096 IF R=10 THEN R=0 

00100 FOR Ai=1 TO 2 

00110 FOR A=1 TO 5 

00120 IF THEN PRINT TAB(20)" 7 * 
00130 IF THEN PRINT SIN(20) "===" 
00140 IF THEN FRINT TAB(20)"$20"3 

00150 IF THEN PRINT TAB(20) "$10" 

00160 IF THEN FRINT TAB(20) "Xxx" 3 

00170 PRINT CHR$(8)¢2PRINT CHR$(8)$ SPRINT CHRE(8) 3 
00190 NEXT A 

00200 NEXT Al 

00210 LET A=INT(20*XRNDIC1)41) 

00220 IF A=1 OR A=2 THEN PRINT TAB(20)" 7 "3 
00230 IF A>2 AND AX7 THEN PRINT TAB(20) "=== 


“> “a> 


iit ii oo 
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CH UR G> <8 24 O >< F OK TOK WOK A OK ROOM E O 
PROGRAM NAME? SLOT/KEBABJIAN < CONT’D & 


00240 IF A>é AND AS1O THEN PRINT TAB(20)*$20°% 
00250 IF A>? AND A<18 THEN PRINT TAB(20)°S10°% 
00260 IF Az17 THEN FRINT TABC20) "XxK"S 

00270 PRINT CHR$(7)+% 

00500 FOR Bi=1 TO 2 

00510 FOR B=1 TO 5 

00520 IF B=1 THEN PRINT TAB(30)" 7 "3 

00530 IF B=2 THEN PRINT TAB(30)"==="3 

00540 IF B=3 THEN PRINT TAB(30)"$20°% 

00550 IF B=4 THEN PRINT TAB(30)"$10° 

00560 IF B=5S THEN PRINT TABR(30)"KxXK"S 

00570 PRINT CHR$(8)¢¢PRINT CHRS(8)¢2P RINT CHRS(8)$ 
00580 NEXT B 

00590 NEXT Bi 

00600 LET BH=INT(20XRND(1)41) 

00610 IF B=1 OR B=2 THEN PRINT TAB(30)" 7 "3 

00620 IF B>2 AND B«é THEN PRINT TAB(30)"*==="5 
00630 IF B>5 AND B10 THEN PRINT TAB(30)"$20"5 
00640 IF B>9 AND B13 THEN PRINT TAB(30)"#10"% 
00650 IF B12 THEN PRINT TAB(30)"XxK"? 

00660 FRINT CHR#(7)%5 

01000 FOR Ci=1 TO 2 

01010 FOR C#1 TO 5 

01020 IF C=1 THEN PRINT TAB(40)" 7 °* 
01030 IF C=2 THEN PRINT TAB(40) "===" 
01040 IF C=3 THEN PRINT TAR(40)"$20° 
01050 IF C=4 THEN PRINT TAB(40)"$10° 
01060 IF C=5 THEN PRINT TAB(40) "XXK"S 

01070 PRINT CHR$(8)¢¢PRINT CHR#(8) 5 SPRINT CHRS(8)5 

01080 NEXT C 

01090 NEXT Cl 

01100 LET C=INT(20KRND(1)+1) 

01110 IF C=1 THEN PRINT TAB(40)" 7 "3 

01120 IF Cz1 AND C<4 THEN PRINT TAB(40)"==="5 

01130 IF C>3 AND C<i0 THEN PRINT TAB(40)"*$20°S 

01140 IF C>9 AND C<14 THEN PRINT TAB(40)"$10"5 

01150 IF C>13 THEN PRINT TAB(40)"Xxx"?> 

01160 PRINT CHRS$(7)3% 

04000 IF AZO AND A<3 AND B2O AND B<3 AND C=1 THEN GOSUB 4500:GOTO 
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PROGRAM NAME? SLO 


04010 IF A>2 ANI! 
S10:GOTO 5010 

04020 IF A>é AND 
BK 4520:GOTO 50°90 
04030 IF A>9 ANI 
B 4530:GOTO S030 


04040 
04050 
04060 
04200 
94500 
00414 
04520 
04530 
04540 
043550 
04560 
05000 
05010 
05020 
05030 
05040 
O5050 
05060 
06000 
06010 
06012 


of 
2 


oo 


IF A>17 AND 
IF A>17 AND 
IF A*17 THE 


GOTO 6000 
FOR X=1 TO 
FOR X=1 TO 
FOR X=1 TO 
FOR X=1 TO 
FOR X81 TO 
FOR X=1 TO 
FOR X=1 TO 
T=T+99SPRIN 


T=T+49 2 PRIN 
T=T+193PRIN 
T=T+9 PRINT 
T=T+7 2 PRINT 
T=T+32PRINT 
T=T+L SPRINT 
T=T~1 PAUSE 
FAUSE 

FRINT $FRIN 


oe 
7 
oad 
7+ 
of 


T/KEBABJIAN 


A<7 AND B>2 AND B<é AND C1 AND C<4 THEN GOSUB 4 
AW10 AND B>S AND B10 AND B>3 AND C<10 THEN GOSU 
A=18 AND B>9 AND B13 AND C>9 AND C<14 THEN GOSU 


Be12 AND C>13 THEN GOSUB 4540:GOTO 5040 
B>12 THEN GOSUB 4550:GOTO S050 
N GOSUB 4560:GOTO 5060 


200:FPRINT CHRS(7)¢2 PAUSE (SO)%NEXT X?RETURN 
10 SPRINT CHR$(7)33PAUSE (SO)tNEXT X!?RETURN 
40¢PRINT CHR$(7)$ PAUSE (SO) $NEXT X?RETURN 
20 SPRINT CHR$(7)3iPAUSE (5S0)%NEXT X!RETURN 
16¢PRINT CHR$(7)¢%PAUSE (SO) NEXT X$RETURN 
BiPRINT CHR$(7)33FAUSE (SO) $NEXT X8SRETURN 
4:PRINT CHR$(7)33PAUSE (50)%NEXT X!RETURN 
T SFRINT "YOU WON $100"tGOTO 46010 
T SFRINT "YOU WON #50"iGOTO 6010 
T 3FRINT "YOU WON #20"°tGOTO 46010 

*PRINT "YOU WON #10"3GOTO 6010 

*PRINT "YOU WON $8":GOTO 6010 

*PRINT “YOU WON $4" GOTO 6010 

*PRINT "YOU WON #2"°3GOTO 60!0 

*PRINT PRINT {PRINT {PRINT tGOTO 90 


T 3PRINT $PRINT :GOTO 10 
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PROGRAM NAME: 


00010 
00020 
00030 
00040 
00090 


BLACKJACK/BARTOLI 
REM BLACKJACK/BARTOLI 
REM BLACKJACK FOR H8 WITH 16K RAM AND STRINGS 
REM THOMAS J. BARTOLI 
DIM W(10) E610) 2T(10) 9¥(10) sQC52) 


PRINT TAB(25) "XxX BLACKJACK *xx" 


00110 PRINT TAB(22)"kkk LAS VEGAS RULES xxx" 

00120 PRINT 

00130 LINE INPUT "NEED INSTRUCTIONS ? CYES/NO) "sAS 

00140 IF LEFT#(A$si)="Y" THEN 180 

00142 IF LEFTS(A$s1)="N* THEN 590 

00144 PRINT “REENTER &xx"s? GOTO 130 

00180 PRINT "WHEN YOU ARE FINISHED READING A SECTION» TYPE “RETUR 
N’* 

00185 FRINT 

00190 PRINT "HERE ARE THE *LAS VEGASX RULES FOR FLAYING BLACKJAC 
00195 FRINT 

00200 PRINT "WAGERS THE HOUSE LIMIT IS #500» SO TYFE IN A NUMBER 
00210 PRINT " FROM 0 TO 500. TO TERMINATE GAMEry ENTER ZERO," 
00220 PRINT $ INPUT 

00230 PRINT ">THE DEAL?! I DEAL MYSELF 2 CARDS AND SHOW YOU ONE. T 
HEN I" 

00240 PRINT * DEAL YOU TWO CARDS, AND ASK YOU IF YOU WANT A HIT 
(ANOTHER * 


00250 FRINT 
ARDS * 
00260 PRINT 
00270 FRINT 
00280 FRINT 
00290 PRINT 
ey?" 
00300 FRINT 
00310 FRINT 
00320 FRINT 
ou" 
00330 FRINT 
G ONE-HALF" 
00340 FRINT 
FAY" 


z of 2 


CARD). YOU HAVE SEVERAL OPTIONS DEPENDING ON THE C 
YOU HOLD AND MY UP CARDS" 
* STAND - BY TYPING ‘NO’ (OR ’N’)" 
x TAKE A HIT ~ BY TYPING ‘YES’ (OR ’Y’)* 
* GO DOWN FOR DOUBLES ~- BY TYPING ‘DOUBLES’ (OR 
K SFLIT A FAIR ~ BY TYPING ‘SPLIT’ (OR ’S’)" 
INPUT 
‘INSURANCE? IF MY UF CARD IS AN ACEy I WILL ASK IF Y 


WANT INSURANCE. IF 


OF YOUR WAGER THAT 


YOU TAKE IT» YOU WILL BE BETTIN 


I DO HAVE BLACKJACK. IF I D0» I 


2H >< U be 


PROGRAM NAME? 


00350 FRINT 
AL WAGER" 
00360 FRINT 


00370 PRINT 


00380 PRINT 
00390 FRINT 
00400 FRINT 


00420 PRINT 
00430 FRINT 
0 UNTIL?" 

00450 PRINT 


00460 FRINT 
00470 FRINT 


00480 PRINT 
00490 PRINT 
00500 FRINT 
00510 PRINT 
00520 FRINT 
00530 FRINT 
00540 PRINT 
00550 FRINT 
00560 PRINT 
00570 FRINT 


00620 X=RNIOC1) 


eo H So 
mx Oo So 


ioThu Hoe Hf 
% 
x 


i 


? 


as az s J a +e 2 s 2 


> *£ $G$ 8 O 4 F et T ot Wet A SK R OK E > 


BLACKJACK/BARTOLI 


2~TO-1 ON YOUR INSURANCE BET. YOU LOSE YOUR ORIGIN 
SINCE I HAVE BLACKJACK»s SO WE ARE EVEN FOR THE HAN 
IF I DON’T HAVE BLACKJACKs YOU LOSE YOUR INSURANCE 
AND THE GAME CONTINUES. * 

IF YOU REFUSE INSURANCE» THE GAME CONTINUES AS NOR 


INPUT 
“THE FLAY? WHEN YOU FINALLY STANDs I WILL DRAW A CAR 


* I HAVE AT LEAST A HARD 17 (HARD MEANS THE TOTA 


DOES NOT INCLUDE AN ACE BEING COUNTED AS 11)" 
* I HAVE A SOFT 18 (SOFT MEANS THE TOTAL INCLUDE 


ACE COUNTED AS 11)" 
* I REACH A TOTAL OF 21" 
* I EXCEED 21 AND BUST" 
PRINT $ INPUT 
>ITEMS: * 
x I PAY 1.5-TO-1 ON BLACKJACK" 
x I DON’T RECOGNIZE S-CARDS~AND-UNDER" 
x YOU MAY DOUBLE DOWN ON A SFLIT HAND" 
* YOU DON’T LOSE ON A TIE HAND...+WE PUSH" 


e222) GOOD LUCK >>>" 


*KK IT AM CALLED ’H8’ AND I WILL BE THE DEALER xxx" 


XRNIVCX) 
>=] THEN 730 
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FROGRAM NAME? BLACKJACK/BARTOLI < CONT’D > 


00730 IF A < 1 THEN 700 

00740 X=TCA) 

00750 DIM D(S2) 

00760 FOR A=1 TO S52 

00770 DCA)=90 

00780 NEXT A 

00800 FOR A=0 TO 39 STEP 13 
00810 FOR C=1 TO 13 

00820 Q¢CATC)=C 

00830 NEXT C 

00840 NEXT A 

00850 PRINT 

00860 K=K+t1 

00870 FOR P=1 TO S 

00880 ECP)=02 VIF )=02 TCP)=0 
00890 NEXT FP 

00900 V(3)=1 

00910 PRINT ? P=1! INPUT "WAGER ? $"sW 
00920 W(2)=W 

00930 IF W <= 0 THEN 2960 
00940 IF W <= 500 THEN 970 
00950 FRINT "THAT’S TOO MUCH ~ HOUSE LIMIT IS $500. "SPRINT 
00960 GOTO 870 

00970 PRINT TAR(32)"I SHOW: 
00980 GOSUB 1900 

00990 IF E(1)=0 THEN 1010 
01000 V(4)=1 

01010 Y¥(5)=1 

01020 GOSUR 1900 

01030 M=X? P=2 

01050 PRINT “FIRST CARD IS: “$ 
01060 GOSUE 1900 

01070 G=X 

01080 PRINT * NEXT CARD IS: *s 
01090 GOSUB 1900 

01100 IF V(2) > 0 THEN 1370 
01110 S=X 

01120 IF V(3) <> 1 THEN 1370 
01130 IF T(P) <> 21 THEN 1200 
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PROGRAM NAME? BLACKJACK/BARTOLI < CONT‘’D.> 


01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01240 
01242 
01244 
01250 
01260 
01270 
01280 
01290 
01300 
KJAK * 
01310 
01320 
01330 
01340 
01350 
01340 
01370 
01380 
01390 
01400 
01405 
01410 
01420 
01430 
01440 
01450 
01460 
01480 
01490 
01492 


PRINT "4k BLACKJACK *xx" 

PRINT TAB(32)"MY HOLE CARD WAS! "3 

X=M 

GOSUBR 2220 

W1=W1+1.5xW 

GOTO 2740 

IF V¢4)=0 THEN 1310 

PRINT 

LINE INPUT "INSURANCE ANYONE ? (Y/N) "$HS 

IF LEFT#(B%x1)="N" THEN 1310 

IF LEFT$(B$r1)="Y" THEN 1250 

PRINT "REENTER *k"#3 GOTO 1220 

IF T¢1) <> 21 THEN 1290 

W1=W1tW 

PRINT "YOU WIN $"5W#" ON YOUR INSURANCE BET"$ 
GOTO 1310 

W1i=W1-W/2 

PRINT "YOU LOST $"#W/2%" ON INSURANCE BET ~ I DON’T HAVE BL 


IF Tl) <> 21 THEN 1370 

PRINT "kk I HAVE BLACKJACK xx* 
PRINT TAB(32)"MY HOLE CARD IS? "$3 
X=M 

GOSUB 2220 

GOTO 2720 

IF T¢(F) <= 21 THEN 1450 

IF ECP) > O THEN 1430 

FRINT "YOU BUSTED, "3 

PRINT "YOUR TOTAL IS "$TC(F) 

i= "RESET *® 

IF V(2)=1 THEN 1710 

GOTO 2520 

ECP)=E(P)-1 

TCP) =TCP)-10 

IF D¢="0" THEN 1400 

VC3)=UC3) +1 

LINE INFUT "HIT ? (Y/N/D/S) "$C 
D$=LEFT$(C$»1) 

IF t¢="Y" OR D¢="N"* OR D$="D" OR D¢="S"* THEN 1500 
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PROGRAM NAME: 


01494 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
014680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 


= S$ e< O ot 


FRINT "REENTER *XX"3% 


IF De<>"S* 


THEN 1820 


IF V(2) > O THEN 1800 


IF V(3) <> 


2 THEN 1800 


IF Q(G)=Q(S) THEN 15640 
CAN ONLY ‘SPLIT’ A FAIR ~~ TRY AGAIN"? PRINT 


PRINT "YOU 
GOTO 1480 
V(2)=1 

IF Q(G) <> 
D¢="p" 

P=3 

PRINT * 


WC 3)=W 

X=G 

GOSUR 1660 
GOTO 1080 
GOSUB 2120 
GOSUR 2220 
VCB=L 
TCP) SC 
RETURN 

p22 

YV(2)=2 


PRINT ° 


X=S 
GOSUB 14660 


1 THEN 1590 


BLACKJACK/BARTOLI 


= CONT‘D > 


GOTO 1480 


PLAY HAND ONE NOW" 
PRINT "FIRST CARD IS: 


"5 


PLAY HAND TWO NOW" 
PRINT “FIRST CARD IS? 


IF Q(G)=1 THEN 1790 


D$="N" 
GOTO 1080 


aa 
? 


PRINT "NO SFLITS NOW ~- TRY AGAIN" 


GOTO 1480 
IF D¢<>"D" 


THEN 1870 


IF V(3)=2 THEN 1860 


PRINT "TOO LATE TO DOUBLE» 


GOTO 1480 
WCF) =2kW (PF) 
IF D$<>"N" 


THEN 1080 


CHARLIE! * 
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PROGRAM NAME? BLACKJACK/BARTOLI < CONT‘’D » 


01880 GOTO 1400 

01890 REM XxXxXDEALKKx 

01900 GOSUB 1970 

01910 TCP)=TCP)4C 

01920 IF V(S)=0 THEN 1950 
01930 V(S)=0 

01940 RETURN 

01950 GOSUB 2220 

01960 RETURN 

01970 N=1OKC1I+ABS(COS(N4EW1) >) 
01980 X=INT(S2.9999XRNDOCY) > 
01990 IF X=0 THEN 1980 
02000 IF I(X)=0 THEN 2100 
02010 R=R+t1 

02020 IF R250 THEN 1970 
02030 FOR A=1 TO 52 

02040 IF D¢A)=K THEN 2060 
02050 D¢A)=0 

02060 NEXT A 

02070 R=0 

02080 PRINT "I RESHUFFLE" 
02090 GOTO 1970 

02100 R=0 

02110 D¢X)=K 

02120 IF Q(X) <> 1 THEN 2160 
02130 C=11 

02140 ECP)=E(P)+1 

02150 RETURN 

02160 IF Q(X)>10 THEN 2190 
02170 C=Q(X) 

02180 RETURN 

02190 C=10 

02200 RETURN 

02210 REM XXXPRINT CARDDKXX 
02220 GOSUB 2250 

02230 GOSUB 2400 

02240 RETURN 

02250 IF Q(X) <> 1 THEN 2280 
02260 PRINT " ACE "3 
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PROGRAM NAMES BLACKJACK/BARTOLI < CONT‘’D > 


02270 RETURN 

02280 IF Q(X)>10 THEN 2310 
02290 PRINT Q(X) 

02300 RETURN 

02310 IF Q(X)>11 THEN 2340 
02320 FRINT " JACK "s 
02330 RETURN 

02340 IF Q(X)>12 THEN 2370 
02350 FRINT " QUEEN “+ 
02360 RETURN 

02370 PRINT “" KING "# 
02380 RETURN 

02390 REM XXXPRINT SUITKKK 
02400 IF X39 THEN 2450 
02410 IF X>26 THEN 2470 
02420 IF X*13 THEN 2490 
02430 PRINT "OF SPADES" 
02440 RETURN 

02450 PRINT “OF CLUBS" 
024460 RETURN 

02470 PRINT "OF HEARTS" 
02480 RETURN 

02490 PRINT “OF DIAMONDS" 
02500 RETURN 

02510 REM XXKDEALER PLAYS*&xX 
02520 P=2 

02530 FRINT TAB(32)"MY HOLE CARD IS: "5 
02540 X=M 

02550 GOSUB 2220 

02560 IF T(2)<22 THEN 2590 
02570 IF V(2)=0 THEN 2720 
02580 IF T(3)>21 THEN 2720 
02590 P=1 

02600 IF T(1)<17 THEN 2790 
02610 IF T(1)>17 THEN 2630 
02620 IF E(1)>0 THEN 2790 
02630 IF T(1)221 THEN 2820 
02640 P=2 

02650 PRINT "MY TOTAL IS "#T(1) 


An OY 


PROGRAM NAME? BLACKJACK/BARTOLI < CONT‘D > 


024660 
02470 
02680 
02690 
02700 
02710 
02720 
02730 
02740 
02750 
02760 
02770 
02780 
02790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
02870 
02880 
02890 
02900 
02910 
02920 
02930 
02940 
02950 
02955 
02960 
02970 
02980 
02990 
03000 


IF T(P)21 THEN 2720 

IF T¢(1)>21 THEN 2700 

IF T¢1)>T(P) THEN 2720 

IF T¢1)=T(P) THEN 2730 
W1=W1+tW(P) 

GOTO 2730 

W1=W1-WCF) 

IF V(2)20 THEN 2760 

GOSUB 2880 

GOTO 800 

P= 3 

V(2)=0 

GOTO 24660 

PRINT TAB(32)"I DRAWS 
GOSUB 1900 

GOTO 2590 

IF EC1)=0 THEN 2860 
ECL)=EC1)-1 

T(1)=T(1)-10 

GOTO 2590 

PRINT "I BUSTEDKKK"; 

GOTO 2640 

IF Wis0 THEN 2920 

IF Wi=0 THEN 2940 

FRINT “YOU’RE AHEAD $"$W1 
RETURN 

PRINT "YOU’RE BEHINE $"3~-W1 
RETURN 

PRINT "YOU’RE EVEN" 
RETURN 

IF Wi=0 THEN 3000 

IF Wi >= 0 THEN 2990 
PRINT "YOU OWE ME $*3-Wis" XKPAY UP NOW xx" 
GOTO 3000 

PRINT "I OWE YOU $*"sW1is" *k BILL ME xxk"3 
END 
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PROGRAM NAME? STAR CRUISER BATTLE/PERRELLO 


00005 REM STAR CRUISER/FERRELLO 

00006 REM 6048 BYTES 

000.0 REM OOOO OOK OOOO OK CCK CCK KK 
FORO KKK KKK KKK 

00015 REM *xk THE STAR CRUISER BATTLE VERSION # 1.0 


xx 
00020 REM *k FROGRAMMED BY FETER J. PERRELLO 
xX 
00025 REM Xx 6260 SENECA STREET*SFPRINGBROOK: NEW Y 


ORK 14140 KX 
00030 REM Kk FROGRAMMED IN EXTENDED BENTON HARBOR BASIC VERSTON 
# 10.01.02, xx 


00035 REM *x MARCH 1978 
xx 
00040 REM OOOO OOOO OKC O OO CRRA 
OOO KOK KOK KK 
00041 REM 


00042 CNTRL 0*9000 

00045 DIM M1(9)» Lis¢70) 

00046 $1$="CI-CI" ¢Wi=0 ¢L1i=0 

00047 T1=2000 

00050 GOSUB 2000 

00055 LINE INFUT "ENTER YOUR LAST NAME PLEASE > "#R1% 

00060 X1=LEN(CR1$) 

00061 IF X1>0 THEN GOTO 64 

00062 $ GOSUB 11000 

00063 ? GOTO SS 

00064 PRINT 

00065 LINE INPUT "DO YOU WANT OPERATION INSTRUCTIONS 7? ENTER 
Y OR N }"sR2¢ 

00066 IF R2¢="Y" OR R2¢="N" THEN GOTO 49 

00067 : GOSUB 11000 

00068 ¢ GOTO 65 

00069 IF R2$<>"Y" THEN GOTO 1000 

00070 PRINT 

00071 INFUT “LESSON SPEED SLOW..1 AVERAGE..2 FAST.-3 SPEED R 

EAD..+«4 ENTER 12293 OR 4 >"#R1 

00072 IF Ri=1 THEN T1=4000 :GOTO 79 

00073 IF Ri=2 THEN T1=3000 :GOTO 79 
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PROGRAM NAME: STAR CRUISER BATTLE/PERRELLO < CONT‘D > 


00074 IF R1=3 THEN T1=2000 :GOTO 79 

00075 IF Ri=4 THEN T1i=1 :GOTO 79 

00076 GOSUB 11000 

00077 GOTO 71 

00079 GOSUB 2000 

00080 PRINT "HELLO CAPTAIN "$R1$*TABC7S)3 

00085 GOSUB 3000 

00090 PRINT "YOU ARE THE CAPTAIN OF THE STAR CRUISER U.S.S+ HEAT 
H"$TABC7S) + 

00095 GOSUBR 3000 

00100 PRINT "YOUR STAR CRUISER IS EQUIPPED WITH A MICROCOMPUTER C 
ONTROLLED DEFENSE SYSTEM" $TAR(75)3 

00102 GOSUB 3000 

00104 PRINT “YOUR MISSION IS TO RID THE GALAXY OF THE EVIL ROMULA 
N MENACE !"¢TAR(C7S)35 

00105 GOSUR 3000 

00110 PRINT “YOUR TRAINING SESSION WILL NOW BEGIN...+-+PLEASE PAY 

CLOSE ATTENTION !!!"STABC7S)5 

00115 GOSUB 3000 

00116 FRINT TABC7S) s;CHRS(13) 5 

00120 GOSUB 2000 

00125 Ri=3 

00130 GOSUB 3000 

00135 PRINT “THIS IS THE DEFENSE SYSTEM SCREEN" ¢* TABC7S) + 

00140 GOSUB 3000 

00145 PRINT "THE ROMULAN ENEMY STAR CRUISERS ARE REPRESENTED AS T 
HE FIGURE °S1$sTABC75)3 

00150 GOSUB 3000 

00155 FRINT “DURING AN ATTACK THE SYSTEM CURSOR WILL SEQUENCE AS 

FOLLOWS" $TAB(75) , 

00160 GOSUR 3000 

00165 FOR I=1 TO 4 

00170 ; FOR J=1 TO 76 


00175 ;$ PRINT TABCJ)$ 
00180 ; NEXT J 

00185 $ FOR J=1 TO 77 
00190 3; FRINT CHRS$(8) + 
00195 3} NEXT J 

00200 NEXT I 


4 - 62 


FROGRAM NAME? STAR CRUISER BATTLE/PERRELLO «< CONT’D > 


00205 FRINT "AS THE CURSOR SEQUENCES FHASERS CAN BE FIRED AT THE 

ROMULAN STAR CRUISERS" + TABC75) + 

00210 GOSUR 3000 

00215 PRINT "FIRE THE FHASERS WHEN THE CURSOR IS DIRECTLY UNDER T 

HE ROMULAN STAR CRUISER" $TABC75) $ 

00220 GOSUR 3000 

00225 FRINT "FHASERS ARE FIRED BY HOLDING DOWN ‘CNTRL’ AND PRESSI 

NG THE ’B’ KEY" #TABC75)5 

00230 GOSUR 3000 

00231 PRINT “WHEN YOU HAVE LOCATED THE ‘CNTRL’ & “’B’ KEY HIT 
“RETURN? "#TABC7S) 

00232 IF Tis2 THEN GOTO 234 

00233 PAUSE 

00234 PRINT CHR$(13)% 

00235 PRINT "WHEN A ROMULAN STAR CRUISER HAS BEEN DESTROYED A BEL 

L WILL SOUND" #TABC75S) + 

00240 GOSUB 3000 

00245 PRINT "ALSO THE WORD ‘HIT’ WILL BE PRINTED"#TABC75) 5 

00247 GOSUER 3000 

00249 PRINT “THE SYMBOL ’7’ WILL BE PRINTED TO MARK STAR CRUISE 

RS THAT WERE DESTROYED" $TABC75) 3 

00250 GOSUBR 3000 

00255 PRINT "THERE ARE 3 LEVELS AT WHICH TO TEST YOUR SKILL"+TAB( 

7305 

00260 GOSUB 3000 

00265 PRINT "THE LEVELS ARE NOVICE? ACE» AND PRO" TABC7S)¢ 

00270 GOSUB 3000 

00271 PRINT "THE TRAINING SESSION IS AT THE NOVICE LEVEL"#TAB(75) 
, 

00272 GOSUBR 3000 

00275 PRINT "AS A NOVICE THERE ARE 3 ROMULAN STAR CRUISERS TO DES 

TROY" $ TABC7S) ¢ 

00280 GOSUR 3000 

00285 FRINT "THEY CAN BE DESTROYED BY A HIT ANYWHERE ON THE ROMUL 

AN STAR CRUISER" #TABC75)» 

00290 GOSUB 3000 

00295 FRINT "AS AN ACE THERE ARE 5S ROMULAN STAR CRUISERS TO DESTR 

OY" TABC7S)% 

00300 GOSUB 3000 
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FROGRAM NAME? 


00305 PRINT 


STAR CRUISER BATTLE/PERRELLO < CONT‘’D > 


“THEY CAN ONLY BE DESTROYED BY A HIT ON THE 3 INNER S 


ECTIONS OF THE SHIP"$TABC7S) + 


00310 GOSUB 
00315 FRINT 
Y"sTABC7S) ¥ 
00320 GOSUR 
00325 PRINT 
P"$TABC7S) 5 
00330 GOSUB 
00335 FRINT 


ECONDIS"+TABC7S) # 


00340 GOSUB 
00345 FRINT 
"$TABC73S) + 

00350 GOSUE 
00355 PRINT 


AT THE START OF 


00360 
00362 
00365 
ENTER 
00366 
00367 3 
00368 3 
00370 
00375 
00380 
00385 
00386 
01000 
01005 
01010 
01015 
01020 GOSUE 
01022 FRINT 
TABC7S) 5 

01024 GOSUE 
01025 K1=60 
01027 CNTRL 


GOSUB 
PRINT 


Y OR 


GOSUB 
FRINT 
GOSUE 
FRINT 


GOSUE 
GOSUE 
GOSUB 


LINE INPUT 


IF R2$="Y" 
GOSUB 11000 
GOTO 365 
IF R2$="y* 


REM CURSOR 


3000 
"AS A PRO THERE ARE 9 ROMULAN STAR CRUISERS TO DESTRO 
3000 
"THEY CAN ONLY BE DESTROYED BY A HIT DIRECTLY AMIDSHI 
3000 
“THE ROMULAN STAR CRUISER ATTACK WILL LAST ABOUT 60 S 
3000 
"YOU HAVE ONLY ENOUGH ENERGY TO FIRE PHASERS 15 TIMES 
3000 
"THE 


SYSTEM FRINTS THE REMAINING TIME & PHASER SUPPLY 
A SCAN" FTABC7S) + 

3000 

TAB(7S) s;CHRE(13)% 

"nO YOU WISH TO REPEAT THE TRAINING SESSION 7 

N >"sR2$ 
OR 


R2$="N" THEN GOTO 370 


THEN GOTO 79 

2000 

"THE DEFENSE SYSTEM IS NOW ACTIVATED" $TABC75) + 
3000 

TABC7S) §CHRS$(13)5 
CONTROL 

2000 

4000 

2000 

7000 

"HKKKKKKKKKAKKKKK GOOD LUCK CAPTAIN "sRI*#SCHRS(7)¢ 
3000 

$K2=15 SH1=0 

078000 
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PROGRAM NAME! STAR CRUISER BATTLE/PERRELLO «= CONT’D = 


01030 
01035 
01040 
01042 
01045 
01050 
01055 
01060 
01065 
01070 
01075 
01080 
01085 
01090 
01095 
01097 
01100 
01200 
$(7)9 
01201 
01205 
01210 


FOR I=1 TO 70 

; Li¢¢(I)="_* 

NEXT I 

Lis¢70)=" * 

PRINT Ki#CHR$(8) #K23TABCG)s 

FOR I1=1 TO 70 

PRINT L1is¢I1)3 

NEXT I1 

FOR I2=1 TO 77 

PRINT CHR$(8)% 

NEXT I2 

Ki=K1-2 

IF Hi=H2 THEN GOTO 1200 

IF Ki<1 AND Hi2H2/2 THEN GOTO 1200 
IF K2<1 THEN GOTO 1400 

IF Ki<1 AND Hi<H2 THEN GOTO 1600 
GOTO 1045 

FRINT "THE ROMULAN STAR CRUISER BATTLE IS OVER" + TAB(75) §CHR 


CNTRL 079000 
GOSUBR 3000 
PRINT "YOU SUCCESSFULLY DEFENDED YOUR STAR CRUISER CAPTAIN 


"$R1$s TABC75) 3 


01215 
01220 
01225 
01230 
01235 
R26 

01234 
01237 
01238 
01240 
01245 
01250 
01400 


GOSUB 3000 

PRINT "YOU DESTROYED *#H1s" ROMULAN STAR CRUISERS" + TAB(75) + 
GOSUB 3000 

Wi=Witd 

LINE INPUT "DO YOU WISH TO TRY AGAIN ? ENTER Y OR N =" 


IF R2$="Y" OR R2$="N* THEN GOTO 1240 

+ GOSUB 11000 

¢ GOTO 1235 

IF R2¢="Y" THEN GOTO 1000 

GOSUB 2000 

GOTO 10000 

PRINT “OOOO WARNING ooo YOUR PHASERS ARE EXHAU 


STED" + TABC7S) + 


01401 
01405 


CNTRL 0r9000 
GOSUB 3000 
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PROGRAM NAME? 


01410 


01415 
01420 


STAR CRUISER BATTLE/PERRELLO < CONT‘D > 


PRINT “THERE ARE "#H2-H1+" ROMULAN STAR CRUISERS STILL ATTA 
CRING* $TAB(75) 5 


GOSUB 3000 
IF H1=0 THEN GOTO 1430 


01425 IF (H2-H1)XRNDICX1)<0.50000 THEN GOTO 1200 
01430 FRINT "A ROMULAN STAR CRUISER JUST MADE A DIRECT HIT ON THE 
U+S.S. HEATH" #TAB(75) + 


01435 
01440 
(75)% 
01445 
01446 
01450 
01455 
01400 
C75) 5 
014601 
01605 
01610 
02000 
02005 
02010 
02015 
03000 
04000 


GOSUB 3000 


PRINT "YOUR STAR CRUISER JUST DISENGRATED CAPTAIN "$R1i$}3TAB 


GOSUB 3000 

PRINT TAB(C76) §CHRS(13) 3 
Li=Liti 

GOTO 1230 

PRINT "“XXAKKKKHKK WARNING 


CNTRL 09000 

GOSUB 3000 

GOTO 1410 

FOR I=1 TO 12 

; PRINT CHRE(7) 

NEXT I 

RETURN 

PAUSE T1 SPRINT CHR$(13)3 
INPUT "WHICH SKILL LEVEL 


ENTER le293 >*3R1 


04005 
04010 
04015 
04020 
04022 
04025 
04030 
04035 
04040 
05000 
05100 
05105 
03110 


IF Ri=1 THEN H2=9 {RETURN 
IF Ri=2 THEN H2=S :RETURN 
IF Ri=3 THEN H2=3 {RETURN 
GOSUB 11000 

GOTO 4000 

PRINT CHR$(7) sCHRS(7) 3 
PAUSE 1000 

PRINT CHR#(13)35 

GOTO 4000 


KKKKKKKKKK TIME HAS RUN OUT "*TAB 


*RETURN 
FROW1 ACE._2 NOVICE...3 


ON R1 GOTO 5100+ 5200» 5300 


GOSUB 6000 
FOR I=1 TO 9 
; GOSUB 7000 


4- 66 


CH US Ge < GS SK OFM F OK Tot W Pe A P< R >t E > 


FROGRAM NAME? STAR CRUISER BATTLE/PERRELLO «< CONT‘’D > 


05115 NEXT I 

05120 GOSUB 6000 
05125 RETURN 

05200 FOR I=1 TO 5 
O5205 : GOSUB 6000 
05210 ; GOSUBR 7000 
05215 NEXT I 

05220 GOSUR 6000 
05225 RETURN 

05300 FOR I=1 TO 3 


O5305 ¢ GOSUB 6000 
05310 + GOSUBR 6000 
05315 ¢ GOSUB 7000 


05320 NEXT I 

05325 GOSUR 46000 

05330 RETURN 

06000 FOR K=1 TO 39 

06005 ; PRINT "+ "# 

06010 NEXT K 

06015 PRINT 

06020 RETURN 

07000 X2=INT(CRNDC(X1)*25.0)+5.0) 
07001 IF X22=X3-5 AND X2¢=X3+5 THEN GOTO 7000 
07002 X3=X2 

07005 FOR J=#1 TO X2 

07010 ¢ PRINT “. "8 

07015 NEXT J 

07020 PRINT "."3 

07025 PRINT S1%% 

07030 M1(I)=INT(POS(0)~-3.0) 
07035 FOR J=P0S(0)/2.0 TO 39 
07040 } PRINT ". "# 

07045 NEXT J 

07050 PRINT 

07055 RETURN 

08000 CNTRL 09000 

08005 Y1=P0S(0) 

08010 K2=K2-1 

08015 FOR I=1 TO H2 
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FROGRAM NAME 


IF 


oS 
123] 
o 
bh 
So 
* 


oS 
je) 
So 
a fr. 
So 
te to +4 8 OF 06 


08055 NEXT I 
08060 CNTRL 
08065 RETURN 
09000 RETURN 
10000 REM ST 
10005 PRINT 
reeCccccce ds 
10006 PAUSE 
10010 PRINT 
10015 PRINT 
N "R1$ 

10016 PRINT 
10017 PRINT 
10018 PRINT 
10020 PRINT 
10025 FRINT 
AGAIN," 
10030 PAUSE 
10035 END 
11000 PRINT 
GAL INPUT"#C 
11002 PAUSE 
11004 RETURN 


¢ STAR CRUISER BATTLE/PERRELLO < CONT‘D > 


(CYL CM1¢0T)-R1it+1)) OR (CY1>(M1(¢1)+R1-1))) THEN GOTO 8 


H1=H1+1 

M1(T)=999 

Liscvi-7>2""* 

PRINT CHRS$(7)5"HIT"3$ 

FOR K=Y1 TO POS(O)-1 FP RINT CHR$(8)# tNEXT K 
GOTO 8060 


08000 
*REM DUMMY CONTROL B SUBROUTINE 
ATISTICS SUBROUTINE 
"DOPE P PSPS SDSS STAR CRUISER BATTLE STATISTICS <<<<< 
500 
"U+S+S+ HEATH STAR CRUISER COMMANDER. .++++++++CAPTAL 


*FAUSE 500 

"BATTLES WONeessereeee "WI 

"BATTLES LOSTessseceee "Li 

*PAUSE 1000 

“TYFE “’R’ AND ’U’ AND HIT “’RETURN’ TO START 


750 
"K=Ke KE KEKE KE KEK=K=K= ERROR =X=k=k=k=kK=k=K=K=K=K ILLE 


HR#¢(7)sTABC7S) > 
1000 ¢PRINT CHR#(13)5TAB(75) §CHRS(13)3 
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PROGRAM NAME? GUNNER/? 


00001 REM 2928 BYTES 

00005 REM FRONT PANEL DISPLAYS SHOW ANSWER TO ELEV BUT ARE READ 
BACKWARDS 

00010 DIM Z29$(10) 

00011 Z9$(0)="AN ENEMY ARTILLERY INSTALLATION OF 155 MM HOWITZERS 
00012 Z9$(1)="ENEMY TANKS ABOUT TO RUN DOWN YOUR INFANTRY" 

00013 Z9%$(2)="ENEMY HEAVY ARTILLERY FIECES MOVING INTO POSITION" 
00014 Z9$(3)="MACHINE GUN EMPLACEMENTS AND FORTIFICATIONS" 

00015 Z9$(4)="RAILROAD CARS WITH ENEMY EXPLOSIVES AND FUEL" 

00016 Z9$(5)="AN ENEMY TROOP CONVOY WITH AT LEAST 200 TRUCKS" 
00017 Z9$(6)="AN ENEMY AMMUNITION DUMP WITH MUCH ACTIVITY" 

00018 Z9$(7)="THE ENEMY COMMAND HEADQUARTERS AND TOP STAFF MEMBER 
s* 

00019 Z9$(8)="A COLUMN OF ENEMY ARMORED INFANTRY" 

00020 Z9$(9)="FUEL AND AMMUNITION BARGES MOVING DOWN THE RIVER" 
00021 Z9$(10)="A CROW - YOU HAVE WIFED OUT EVERYTHING ELSE THE EN 

EMY HAL" 

00130 FRINT "DO YOU WANT INSTRUCTIONS (Y OR N)"3 

00140 LINE INPUT +X 

00150 IF LEFT#(X%21)="N" THEN 330 

00160 IF LEFT$(X$91)<>"Y" THEN 130 

00170 FRINT " THIS GAME TESTS YOUR ABILITY TO HIT A MOVING TAR 
GET ° 

00180 FRINT "YOU MUST DESTROY IT BEFORE IT DESTROYS YOU OR MOVES 
OUT" 

00190 FRINT "OF RANGE. THE TARGET WILL MOVE RANDOMLY." 

00200 PRINT 

00210 FRINT " TYPE CTRL/C TO TERMINATE THE PROGRAM. TO THE QU 
ESTION" 

00220 PRINT "‘ENTER SPEED’ TYPE A NUMBER BETWEEN 1 AND 100% THIS 
IS THE" 

00230 FRINT "RELATIVE SPEED OF THE TARGET WHERE 1 IS THE SLOWEST 

AND 100° 

00240 PRINT “IS THE FASTEST. TO THE QUESTION “ENTER DISTANCE’ TY 

PE A* 

00250 FRINT "NUMBER FROM O TO 10000» THIS IS THE MAXIMUM DISTANCE 
you" 

00260 PRINT "CAN HIT FROM THE TARGET AND STILL DESTROY IT OR ’THE 
KELL" 
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FROGRAM NAME? GUNNER/? 


00270 FRINT "RADIUS’ (5000 IS SUGGESTED FOR STARTERS)" 

00280 PAUSE 2000 

00290 PRINT 

00300 FRINT " ELEVATION IS THE ELEVATION OF YOUR GUN IN DEGREE 

S WHEN" 

00310 FRINT "YOU FIRE AT THE TARGET. THE MAXIMUM RANGE IS AT 45 
DEGREES" 

00320 PRINT 

00330 INFUT " ENTER SFEED OF TARGET "3S 

00350 IF S<1 OR S>100 THEN 330 

00370 INPUT " ENTER DISTANCE (EFFECTIVE BURST DIAMETER) OF YOUR S$ 

HELL "sD 

00390 IF D<O OR [10000 THEN 370 

00410 M=100000-7S5000xXRND (1) 

00420 FOR V=0TO 1O3PRINT CHR$(7) NEXT V 

00421 PRINT "THE FORWARD OBSERVER AT GRID COORDINATES" + INTC 1O0XKRN 

DCL) es" 8% 

00422 Z9=INTCRNDIC1) 90) 

00423 IF Z9<65 THEN 422 

00424 PRINT CHR$(Z9)5" HAS SIGHTED" 

00425 PRINT Z9$(Z8) 

00426 Z8=ZBt12IF Z8>10 THEN Z8=0 

00427 PRINT 

00430 PRINT "THE MAXIMUM RANGE OF THE GUN DIRECTED AT THIS TARGET 
IS*#Ms "YARDS" 

00440 FOR K=1 TO M/10000 

00450 LET K1i=RNDIDC1) 

00460 NEXT K 

00470 R=.95XM~-.6KMKRNDC1) 

00480 LET N=0 

00490 GOTO 520 

00500 IF R>M THEN 840 

00510 IF Re=(M/2.5) THEN 860 

00520 PRINT “TARGET RANGE IS"sR# "YARDS" 

00521 GOSUR 2000 

00530 INFUT " ELEVATION "SE 

00550 IF EXO THEN 840 

00560 IF E>89 THEN 800 

00570 IF Exi1 THEN 820 
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PROGRAM NAME? GUNNER/? < CONT‘’D = 


00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
004680 
00690 
00700 
00710 
00720 
00730 
00740 
00745 
00746 
00748 
00749 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00840 
00870 
00940 
00950 
00940 
00970 
00980 


N=N+1 

K=INT(R-MKSIN(2%E/57.3)) 

K1=ABS(K) 

IF Ki<=I THEN 650 

IF K>D THEN 720 

IF K«-D THEN 740 

STOP 

PRINT "“XXXKKXKKKK TARGET DESTROYED XXXXXKKKKK" 
GOSUB 940 

h1i=K 

FOR K=1 TO NtD/100 

Ki=RNDC1) 

NEXT K 

GOTO 410 

FRINT "kk SHORT TARGET BY"#K1is "YARDS" 
GOTO 745 

PRINT "kk OVER TARGET BY"#K1i# "YARDS" 
LET C=INTC2*RNDIVC1) 41) 

IF C=1 THEN 750 

LET C=-1 

GOTO 760 

LET C=1 

C1=MX3/100XRNDC(1) 

C1=CxC1 

R=R+C1 

GOTQ S00 

PRINT "MAXIMUM ELEVATION IS 89 DEGREES" 
GOTO 530 

FRINT "MINIMUM ELEVATION IS 1 DEGREE® 
GOTO 530 

FRINT "xX TARGET OUT OF RANGE ** 


GOTO 670 

PRINT "\\\ THE TARGET HAS DESTROYED YOU ///* 
GOTO 670 

IF N=1 THEN 970 


PRINT #N¢ "ROUNDS EXPENDED" 

RETURN 

PRINT OOOKKKKKKK DIRECT HIT xxKKKKKKKK" 
RETURN 
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FROGRAM NAME: 


SH>< USE G> <8 


GUNNER/? 


00990 END 


02000 
02001 
02002 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 


H?=SQR (MKM~-RXR ) 
E9=ATN(R/H9) 
E8=E9xX57.3/2 
E7=E8/100 
AS=10 

A4=8211 

FOR W=1T0 9 
E6=INTCE7XAS) 
FOKE A4*sSEG(E6) 
A4=A4-1 
E7=E7~-(E6/AS) 
AS=ASK10 

NEXT W 

RETURN 

STOP 
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PROGRAM NAME? SPACEWARS/PARKER 


00082 


HAVE? 


00084 
00085 
00086 
90 
00088 
TO 82 
00090 
00092 
00095 
00100 
) 
00105 
00110 
8 
00120 
00130 
00135 
00140 
00150 
00155 
00160 
001465 
00170 
00180 
00190 
00195 
00200 
714) 


REM SFACEWARS/FARKER 

DIM DCS) eK107) 2K207) 9R307) 250727) eQC7 27) DISCS) 

Q$=".EKBK ()-"t DEF FN G$(N)=MIDS$(Q$rNe1) 

DATA "WARP ENGINES", "SHORT RANGE SENSORS"»y"LONG RANGE SENSO 


DATA "PHASERS"» "PHOTON TORPEDOES", "GALACTIC RECORDS* 

FOR I=0 TO S 

READ De¢T) 

NEXT I 

H$=" ABSORBED BY THE BLACK HOLE !!"* 

INFUT “HOW MANY YEARS OF STARSHIF COMMAND EXPERIENCE [10 YOU 
"3A 

IF A<i THEN A=1: GOTO 92 

IF A*=30 THEN 92 

LINE INFUT "ARE YOU A VULCAN? "FE%? IF LEFT#(E$*1)="Y" THEN 


FRINT "NON-VULCAN CAPTAINS MUST RETIRE AFTER 30 YEARS!*"? GO 


IF A>50 THEN A=S50 

X1=.02xKA 

PRINT “WORKING «++"? 

DEF FN Z(N)=SQR((K1¢(1T)-SL1)K(K1 01) -S1)4+¢0K201)-S2)k (R201) -S2) 


CNTRL 4°03 REM — HIGH SFEED PROCESSING 
GOSUB 610! GOSUB 450% Q1=Xi Q2=Yi X=8i Y=1! Y1=6-28% X2=3-2 


Y2=1.8fA=,96$C=100fW=102K9=03B9=02S9=400iT9=3451: GOTO 140 
K=K—( (NEX2) + ONSY2) FON. 2B FONE OB) ECNEOSDECNE O10) /70NOT 0) 
K?=K9-Ki GOTO 1460 

TO=3421! T=TOt E0=4000! E=E0: FO=10i P=FO? FOR I=0 TO 7 
FOR J=O TO 7% K=Ot N=RNDICY) 

IF N&X1 THEN N=NX64% K=-(NZYL)/CNOT O)-¥? GOTO 130 
B=~(RNDICY)=A)/CNOT 02% B9=B9~B 

QC Le J) =KKCHEKW- INT CRNIDCY)XX+Y)$ NEXT J? NEXT I 

IF K9=(T9-TO) THEN T9=TOTK? 

IF B9<1 THEN GOSUB 450: Q¢(XrY)=Q(XvY)-10% B9=1 

IF K9<1 THEN GOSUB 4503 Q(X#Y)#Q(X*Y)~-2003 K9F2 

KO=K9 

FRINT TAB(22)3 LEFT$("XK STARTREK *k L.E. COCHRAN» 2/29/76" 
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FROGRAM NAME: SPACEWARS/PARKER 


00205 CNTRL 491% REM ~ NORMAL SFEED FROCESSING 

00210 FRINT “ORJECTIVE? DESTROY" # KOS "KLINGON BATTLE CRUISERS IN"3 
T9-TOs 

00220 PRINT "STARDATES"? FRINT “THERE ARE"#R9s"STARBASES FOR YOU 

TO USE" 

00230 A=O% IF Q1<0 OR Q1>7 OR Q2=0 OR Q227 THEN N=O%S=OfK=OfLi=1? 
GOTO 250 

00235 L1i=0O} REM ~ LOST OUTSIDE OF GALAXY FLAG 

00240 N=ABS(Q(Q12Q2))2 Q¢CQ19Q2)=Ni S=N-INTON/10)%102 K=INTCN/100) 

00250 B=INT(N/10-KX10)3 GOSUB 450: Si=X?3 S2=7 

00260 FOR I=0 TO 7? FOR J=0O TO 7? S¢IyJ)=12 NEXT J: NEXT It S¢S1» 
$2)=2 

00270 FOR I[=0 TO 7? K3C(T)=03 X=8? IF I=h THEN GOSUR 46023 SCX Y)=3 
$ K3CI)=S9 

00280 Ki¢T)=X? K2CT)=Y¥$ NEXT Is [=S 

00290 IF B>0 THEN GOSUB 44602 S(X+Y)=4 

00300 IF I=0 THEN GOSUB 440? SC(XrY)=S3 I=I-1?3 GOTO 300 

00310 GOSUB S50? IF A=0 THEN GOSUR 480 

00320 IF E«=0 THEN 1370 

00330 IT=123 IF 0¢1)20 THEN 620 

00340 FOR I=0 TO 73 FOR J=0 TO 73 PRINT FN G&(S(IxJ))8" "$% NEXT 

J 

00350 PRINT " "$$ ON I GOTO 380%3907%4007410%420%430%440 

00360 FRINT “TIME LEFT?" T9-T 

00370 NEXT I: GOTO 650 

00380 FRINT "STARDATE? "sT 
00390 FRINT “CONDITION: "3 

00400 FRINT "QUADRANT? "3 
370 

00405 PRINT " UNKNOWN"? GOTO 370 

00410 FRINT "SECTOR? "sS1itis"-"sS2+1? GOTO 370 

00420 FRINT “ENERGY? "sE% GOTO 370 

00430 PRINT "TORPEDOES? "*sF? GOTO 370 

00440 FRINT "KLINGONS? "#K9?3 GOTO 370 

00450 X=INTCRNIC1)*8)$ Y=INTCRNICL)*8)2 RETURN 

00460 GOSUB 450: IF S¢(XvY)>1 THEN 460 . 

00470 RETURN 

00480 IF Kel THEN RETURN 

00490 IF C$="HOCKED" THEN PRINT "STARBASE PROTECTS ENTERPRISE"? R 

ETURN 


$ GOTO 370 
C#$3; GOTO 370 
IF Li=0 THEN PRINT Qitis"-"7sQ2413 GOTO 
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FROGRAM NAME? SPACEWARS/FARKER 


00500 FOR I=0 TO 73 IF K3¢(I)<=0 THEN NEXT Ii RETURN 


OOS10 H=K3(1)*. 4XRNINCL)$ K3CDT)=K3¢I)-H? H=H/CFN Z(0)"%.4)% E=E-H 


00520 E$="ENTERPRISE FROM"? N=E? GOSUB 530! NEXT I? RETURN 


00530 PRINT Hs "UNIT HIT ON "SEs" SECTOR" #KICT F195 "~"FKR2CT) +15 


00540 PRINT " ("sN¢"LEFT)"? RETURN 

00550 FOR I=S1-1 TO Siti? FOR J=S2-1 TO S2ti 
00560 IF I<O0 OR I>7 OR J<O OR J>7 THEN 580 
00565 IF S(IvJ)=6 THEN A=1? GOTO 741 


00570 IF S(I»J)=4 THEN C$="DOCKED"? E=E0? P=FO! GOSUB 610% RETURN 


00580 NEXT Jt NEXT I$ IF K>O THEN C$="RED!!"? RETURN 
00590 IF E<EOX.1 THEN C#="YELLOW"? RETURN 
00600 IF Li=0 THEN C#="GREEN"? RETURN 


00605 C#=LEFT$("LOST» BLACK HOLE, & EXPERIENCE BY STEVE PARKER? 9? 


129/77" 94) 

00610 FOR N=0 TO Si DCN)=O0% NEXT Ni RETURN 

00620 PRINT [D4(1I)s" DAMAGED. “% 

00630 PRINT IC1)#"STARDATES ESTIMATED FOR REPAIR. *? PRINT 
00640 IF A=1 THEN RETURN 

00650 INPUT “COMMAND? "FA 

00660 IF A<1 OR A>4é THEN 680 

00670 ON A GOTO 71073107125071140769071300 

00680 FOR I=0 TO Si PRINT I[tis"= "#0¢(1I)3 NEXT I$ GOTO 650 
00690 IF D(4)>0 THEN PRINT "SPACE CRUD BLOCKING TUBES. "#? 
OTO 630 

00700 N=15t IF P<i THEN PRINT "NO TORPEDOES LEFT": GOTO 650 
00710 IF A=5 THEN PRINT “TORFEDO “¢ 

00720 INFUT "COURSE (1-8.9)? "#Ci IF C<i THEN 650 

00730 IF C»=9 THEN 710 

00740 IF A=S THEN F=P-1! FRINT "TRACK? "#3 GOTO 00 

00750 INPUT “"WARF (0-12)? "$Wi IF We=0 OR W>12 THEN 710 
00760 IF We=.2 OR 060)<=0 THEN 780 


00770 [=O PRINT D$(1)#" DAMAGED, MAX IS .2"#? GOSUB 630: GOTO 75 


0 

00780 GOSUB 480? IF Ex=0 THEN 1370 

00790 IF RNIDC1)>.25 THEN 870 

00800 X=INTCRNIDC1)*6)% IF RNDC1)>.5 THEN 830 

00810 DCX) =X) +INT(S6—-RNDC1)*5)2 PRINT "xk SPACE STORM *xk ~ 
00820 FRINT D$(X)s" DAMAGED xk"? I=X? GOSUB 630? OCX HOCXI+1 
0 870 


4—~ 75 


GOT 
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PROGRAM NAME? SPACEWARS/PARKER 


00830 
00840 
00850 
00860 
00870 
00880 
nee 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00941 
00962 
00963 
00969 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
) 
01060 
01070 


"3 


01080 
01081 
0 OR 
01082 
01083 
01084 
01085 


>" 


FOR I=X TO S3 IF 0¢1I)>0 THEN 860 

NEXT I 

FOR I=0 TO X$ IF [0¢I)<=0 THEN NEXT I? GOTO 870 

N¢I)=.5% PRINT "XxX SFOCK USED A NEW REPAIR TECHNIQUE xx" 
FOR [=0 TO Si IF D¢I)=0 THEN 890 

DCT =O0¢I)-13 IF O¢I)<=0 THEN [¢T)=02 PRINT D¢(I)#" ARE FIXE 


NEXT Ii N=INT(WK8)? E=E-N-N+.52 T=T+1? $(S17S2)=1 
Yi=S1it+.53 X1=S2+.5%2 IF T>T9 THEN 1370 

Y=(C~1)*.785398% X=COS(Y)? Y=-SINCY) 

FOR I=1 TO N$ YL=Y1t¥? X1=X1+X? Y2=INTCY1)3 X2=INTCX1) 
IF X2*0 OR X2>7 OR Y2<0 OR Y2>7 THEN 1110 

IF A=S THEN PRINT Y2t15"~"sX2413 

IF S(Y¥29X2)=1 THEN NEXT Ii GOTO 1060 

PRINT ¢ IF S¢(Y¥29X2)*#6 THEN 969 

IF A=1 THEN FRINT "YOU HAVE BEEN"#H$$ GOTO 1370 

PRINT "TORPEDO" ¢H$ 

GOTO 1090 

IF A=1 THEN PRINT "BLOCKED BY "3 

ON S(Y2*X2)-3 GOTO 10401020 

PRINT "KLINGON"'$$ IF A=1 THEN 1050 

FOR I=0 TO 7? IF Y2e>K1¢1I) THEN 1010 

IF X2=K2(1) THEN K3¢(1I)=0 

NEXT I? K=K-1?2 K9=K9-13 GOTO 1070 

PRINT "STAR"#? IF A=S THEN S=S-13 SCY2¥X2)=63 GOTO 1070 
GOTO 1050 

FRINT “STARBASE"#? IF A=S THEN B=2% GOTO 1070 

PRINT " AT SECTOR" #Y2415"~-"sX2412 Y2=INTCY1I-Y)$ X2=INT(X1-X 
23: GOTO 310 


$1=Y2?3 S2=X2i S(S1lrS2)=23 A=23 
THEN B=0% FRINT "..+GOOD WORK! 


PRINT * DESTROYED! "5% IF B=2 


PRINT ¢ QCQ1*2Q2)=KKX1OO+BK104S3 IF S¢CY2X2)<>6 THEN 1089 
FOR I=Y2-1 TO Y2t1i FOR J=X2-1 TO X2+13 IF I<O OR I>7 OR Je 


J>7 THEN 1087 


IF S(IvJ)<>3 THEN 1085 

FOR X=0 TO 7? IF Ki(X)=I AND K2¢X)=J THEN K3(X)=0t X=7 

NEXT X? K=K-12 K9=K9-13 SCIyJ)=12 PRINT "KLINGON" FHS 

IF S(IvJ)=4 THEN B=0O} B9=B9-1! S(IyJ)=1¢ PRINT "STARBASE"3H 
BRILLIANT! * 
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PROGRAM NAME? SFACEWARS/PARKER 


01086 


01087. 


01088 
01089 
01090 
01100 
01110 
01120 
01130 
01140 
01150 


IF S¢(IvyJ)=5 THEN S=S-13 S(IyJ)=1!2 PRINT “STAR"+H$ 
NEXT J? NEXT I? IF K9<1 THEN 1400 
Q(Q1%Q2)=1LOOKK+10KB+S? GOTO 1090 

SC¥29X2)=12 IF K9<1 THEN 1400 

GOSUB 480: IF Ex=0 THEN 1370 

GOSUB S50: GOTO 650 

IF A=5 THEN PRINT “MISSED."? GOTO 1090 
QL=INTCQLtWKY+(S14+.5)9/8)2 Q2=INT(Q24WkX+(S24+.5)78) 
GOTO 230 

I=33 IF O¢1I)>0 THEN 620 

INFUT "FHASERS LOCKED ON TARGET. UNITS TO FIRE? "xX? IF X= 


=Q THEN 650 


011460 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
2t1s 
01265 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
) 
01341 
01345 
01350 
013490 
01370 


IF X>E THEN PRINT “ONLY HAVE"SE: GOTO 1150 
E=E-X? Y=Ki FOR I=0 TO 73 IF K3¢I)<=0 THEN 1230 
H=X/CYKCFN Z(0)7.4))% K3CT)=K3CT)-H 
E$="KLINGON AT"? N=K3(1I)?3 GOSUBR S30 
IF K3¢I)>0 THEN 1230 
PRINT "kk KLINGON DESTROYED *x* 
K=K-13 K9=K9-13 SCRLCT) sK207T))=12 Q(Q1*%Q2)=Q(Q12Q2)-100 
NEXT I: IF K9<1 THEN 1400 
GOTO 1090 
=2e IF O¢1I)>0 THEN 620 
PRINT DS¢(I)¢3 IF Li=0 THEN PRINT * FOR QUADRANT" ¢Q1it1ls"-"5Q 


GOTO 1270 


PRINT 

FOR [=Qi-1 TO Qiti? FOR J=Q2-1 TO Q2tit FRINT " ne 

IF I20 OR I>7 OR JfO OR J>7 THEN PRINT "Xkk"s$ GOTO 1350 
Q(IyJ=ABS(Q(I yj) GOTO 1340 

I=S? IF D¢1I)20 THEN 620 

PRINT "CUMULATIVE GALACTIC MAP FOR STARDATE"#T 

FOR I=0 TO 73 FOR J=0 TO 73 PRINT ° "y 

IF Q¢IvJ)<0 THEN PRINT “XxkxX"5? GOTO 1350 

ES=STRE(Q¢IxJ))2 ES="OO"+MIDS(ES$22)$ ES=MIDS(E Se 1 ey LENCE$) —1 


IF LENCE$)<3 THEN ES="O"+E$ 

PRINT RIGHT#(E% 3) ¥ 

NEXT J? PRINT 3 NEXT I? GOTO 4650 

PRINT ¢ FRINT “IT IS STARDATE*#T? RETURN 

GOSUB 13603 PRINT "THANKS TO YOUR BUNGLINGs THE FEDERATION 


WILL BE" 
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PROGRAM NAME? SPACEWARS/PARKER 


01380 PRINT "CONQUERED BY THE REMAINING" #K9% "KLINGON CRUISERS!" 
01390 FRINT "YOU ARE DEMOTED TO CABIN BOY!"? GOTO 1430 

01400 GOSUB 1360! PRINT "THE FEDERATION HAS BEEN SAVED!" 

01410 PRINT "YOU ARE PROMOTED TO ADMIRAL"? FRINT KO#*KLINGONS IN" 


? 

01420 PRINT T-TO"YEARS. YOUR RATING IS"*#INTC(KO/(T~TO)*1000) 
01430 LINE INFUT "TRY AGAIN? "SE%? IF LEFT#(E¢r1)="Y" THEN 105 
01440 END 

01450 FOR X=0 TO 7 

01460 PRINT X#"—"K1 CX) FY2IKACX) FX2 

01462 IF K1i¢(X)=Y2 THEN PRINT "Ki CHECKS" 

01464 IF K2(X)=X2 THEN PRINT "K2 CHECKS" 

01466 IF Ki¢X)=Y2 AND K2(X)=X2 THEN PRINT "BOTH CHECK" 

01470 IF Ki(X)=Y2 AND K2(X)=X2 THEN K3(X)=0% PRINT "K3C"#X# "=" 9K 
3X) 

01480 NEXT X 

01490 K=K-1iK9=K9-1% PRINT “KLINGON ABSORBED !!" 

01500 S(IvJ)=1 

01510 GOTO 1087 
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PROGRAM NAME? MILLS-BELT FRUIT/PEARCE 


00002 REM =>>MILLS-BELL FRUIT« <= 

00004 REM *>>(C) COPYRIGHT 1977 BY CRAIG PEARCE 

00006 REM =2>H9 VERSION 2.4 

00008 REM *2>H8 & HY REVISION DATED? 3/19/78 

00010 DIM A$(6) vAC3) oWO3) SB=2502F=O2F1=03F 2=02G=0tH=0 

00015 DEF FN S(Q$)="$"4LEFTS$(Q$y (LEN(CQ$)-2) 4". "+MID$(Q$% (LEN( QS) 

~1)*1)+°O" 

00020 DATA 2eSrS3rlrSr4r2xSr4avlvOrSvAvGe4r Srl e343 

00030 DATA LleySrlv4elySr39Srlr4eleGeSrSelrOr4el er Se4 

00040 DATA Sv293 2542S Gry Sr 22S 2x4 Ov 29Gr2rSr2 

OOO5O AFCOI="LINTASCLIER"ZL"LAS(ZI="OO"LASC ZH" EE TASC 4 =E"KK"SASCS 
Y="BR"SASCH)="$S" 

00055 Z=PEEK( 8220) xPEEN(8219)31IF Z=0 THEN SS 

00060 Z=RNIN(-Z) 

00070 PRINT TAB(21)5 "XXX BELL-FRUIT (MILLS STANDARI) xkxk" 

00080 FPRINT TAB(30)5"BY CRAIG A PEARCE" SF RINT 

00090 LINE INFUT “WANT INSTRUCTIONS? "5X 

00100 FRINT {IF LEFT#(X#91)="N" THEN 180 

00110 PRINT TAB(S)$"THIS PROGRAM WILL SIMULATE A GENUINE? MILLS B 

RAND SLOT-* 

00120 PRINT "MACHINEs BOTH IN THE OD0S AND STANDARD FAYOFFS. THI 

S$ IS A DIME* 

00130 PRINT "MACHINE ANI WILL PAYOFF A MAXIMUM OF $10.00 FOR A JA 

CKFOT." 

00140 FRINT "THE SYMBOLS ARE? ":GOSUB S00 

00150 LINE INFUT "WHEN REALYs HIT THE ‘RETURN’ KEY."#X#$GOSUR 600 

00160 PRINT TAB(5S)#"TO FLAY», HIT THE “RETURN’ KEY. TO RECALL THE 
OnnS»s INPUT" 

00170 FRINT "A ’?%. TO END, INFUT AN ’E’. "SPRINT ¢FPRINT 

00180 PRINT TAB(45)3 "YOUR CASH IS "sFN S(STR#(B)) SPRINT {IF B=0 T 
HEN 360 

00190 LINE INFUT "READY FOR PLAY-~"sFS% 

00200 IF FS="?" THEN GOSUB 600?tFPRINT :GOTO 180 

00210 IF LEFTS$(Psi)="E" AND (CF$="E" OR PS="END") THEN PRINT ¢FRI 

NT :GOTO 370 

00215 G=Gt1 

00220 FOR I=1 TO 32ACT)=14+CINTCRNDCZ)*20))23NEXT I 

00230 FOR I=1 TO ACL) READ WC1)INEXT I 

00240 FOR I=1 TO AC2)+(20-AC1)) READ WC2) NEXT I 
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FROGRAM NAME? 


00250 
00260 
00265 
00270 
00280 


=6) THEN H= 


FOR IT=1 TO AC(3)+(20-A(2)) 3 READ 
IF WC1)=1 THEN 340 

IF W(1)=6 AND 
IF WC1)=WC2) AND 
IF WC1)=WC2) AND WC2)=WC3) AND 


H+903F=1 


00290 B=(B-1)+H 


00295 FRINT 


00300 FOR I=1 TO 33PAUSE SOOtPRINT ASCWC(T)D+" 


TAB(30)5 


00305 IF H=0 THEN 180 


00307 FRINT 


TABCIS)$ 


MILLS~BELT FRUIT/PEARCE <= 


WC(2)=46 AND 
(WC1)=WC3) OR WCO3)=0) THEN H=H+10 


CONT‘ > 


WCS) NEXT IS RESTORE 
W(3)=0 THEN 290 
WC3d=WC1) AND (WC3)=0 OR WIS 


"SNEXT ISFRINT 


00310 IF F=1 THEN F=0iGOTO 330 


00320 IF H=0 THEN FRINT CHRS$(7)9"A WIN OF 


0 180 


00330 PRINT CHR#(7)5 3 PAUSE 


0.00!"H=O;GOTO 180 
00340 H=Ht23IF WC2)=WC1) THEN H=H+t+3 
00350 GOTO 290 


00360 PRINT 


SPRINT 


00370 W$="MADE"iF2=1 
00380 IF B-250=0 THEN W$="BROKE EVEN. "3F2=0 


00390 PRINT 
OF" 


00400 FRINT FN SC(STRS$(G))5" 


"YOU’VE PLAYED 


00410 IF B=0 THEN END 


00420 PRINT 


00430 IF B-250<0 THEN PRINT 


40 


*" THIS MEANS YOU’ VE 


00435 Wé="GOOD WORK" 
00440 IF Le>0 THEN FRINT FN SC(STR$(L)I)3GOTO 450 
FN S(STR#(B-250) ) 


00445 FRINT 
00450 FRINT 
00500 FRINT 
00510 FRINT 
00520 FRINT 
00530 FRINT 
00540 FRINT 
00550 FRINT 
00560 FRINT 


WH SENT! 

TABC15)3"CI 
TABC1S) ¥ "2% 
TABCIS) "00 


TABCIS) 5 "EF - 


TABCIS) ¥ "Xx 
TABCIS) 9 "8% 
TAB( 15) 5 "$$ 


"sFN SCSTRSCH) ) SH=03GOT 


SOOSPRINT CHR$(7)3 "JACKPOT! YOU WIN $1 


"YOUR BANK HAS BEEN BROKEN! "SPRINT 


THE SLOTS"*Gs"TIMES» SPENDING A TOTAL 


IN THE PROCESS. "» 


"sWS5" * 


93IF F2=0 THEN END 
"~"% 3L=ABS(B-250)2W$="TOO BAD" ?GOTO 4 


BAR" 

CHERRIES * 

LEMONS * 

FLUMS" 

ORANGES" 

BELLS" 
WATERMELONS " RETURN 
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PROGRAM NAME: 


00600 PRINT 
00610 PRINT 
$0.20" 
00620 PRINT 
$0.50" 
00630 PRINT 
$1.00" 
00640 PRINT 
$1.00" 
00650 FRINT 
$1.00" 
00660 PRINT 
$1,00° 
00670 FRINT 
$1.00" 
00680 FRINT 
$1.00" 


"THE FAY OFFS 


TABCS) § "4% 
TABS) § "AX 
TAB(S) 5 "## 
TAB(CS) 5" ## 
TAB(CS) 9 "XX 
TAB(S) 5° Xx 
TAB(S) 5 "88 


TAR(S)9"&% 


00685 LINE INPUT “WHEN 
sFRINT "JACKPOTS: " 
TAB(S)¢"CI CI C1 ~ BAR~BAR-BAR : 


00690 FRINT 
00700 PRINT 
$10.00" 
00710 FRINT 
$10.00" 
00720 FRINT 


al 
o 
7 
ded 
77 


2 


XX 


hh 


$# 


$+ 


xX 


*x 


&& 


&& 


MILLS-BELT FRUIT/PEARCE 


< CONT’D > 


ARE AS FOLLOWS: "PRINT 


XX = 


XX - 


## - 


Ci = 


*xK — 


ba + 


&& - 


ci = 


REALTY + 


CHERRY~-ANYTHING~ANY THING: 


CHERRY-CHERRY-ANYTHING 


PLUM~PLUM-PLUM : 


PLUM-PLUM~BAR 


o 


ORANGE -ORANGE ~ORANGE H 
ORANGE ~-ORANGE~BAR ; 
BELL-BELL-BELL : 
BELL~BELL~-BAR ; 


HIT THE RETURN KEY. "9X% 


TAB(S) 3 "$$ $$ $$ —- MELON-MELON-MELON ; 


sRETURN 


2? 
2e 
7 
o 
77 


7 


7 
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oe 


4 
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FROGRAM NAME? JOTTO/LIMOGES 


00001 REM * IF YOU WANT TO ADD A FEW SPECIALS» SEE LINE 3051 AND 
ADD. ++!!! 

00005 REM * THIS PROGRAM TAKES UF TO 12 K. 

00006 REM JOTTO/LIMOGES 7720 BYTES 

00010 FOR Q=0 TO 11°3PRINT CHR$(7)2NEXT Q 

00020 FRINT TABC15) "kkkxXkkK SUPER JOTTO XxkKKKX" 

00030 PRINT :PRINT "BY? PIERRE LIMOGESr BOUCHERVILLE» F.«Q.* CANAD 
A." 

00032 FAUSE 600 

00035 FOR Q=0 TO 11:PRINT ¢NEXT Q 

00040 PRINT {PRINT "~MACHINE WILL CHOOSE A WORD." 

00050 PRINT "-INFUT YOUR GUESS." 

00060 PRINT "-MACHINE WILL TELL YOU HOW MANY LETTERS ARE GOOD, BU 
T NOT ° 

00070 FRINT " NECESSARALY IN THE RIGHT ORDER." 

00080 PRINT *-IF YOU WANT TO QUIT: INFUT ’Z’." 

00090 PRINT "-NO 2 LETTERS ARE THE SAME." 

00100 FRINT "-ALL WORDS ARE IN THE DICTIONARY." 

00110 PRINT "-WHEN YOU GET THE WORD YOU HAVE ’JOTTO’." 

00120 PRINT ${PRINT "(PRESS ANY KEY TO CONTINUE.) * $PAUSE 

00200 DIM A$(400) 

00300 FOR Q=0 TO 113PRINT $NEXT Q 

00400 PRINT "-~--WHICH OF THE FOLLOWING GAMES WOULD YOU LIKE TO F 
LAY$" 

00410 FRINT ¢PRINT "-WORDS WITH 3 LETTERS.+«..(PRESS 3)." 

00420 PRINT "-WORDS WITH 4 LETTERS..++(FRESS 4)." 

00430 FRINT "-WORDS WITH S LETTERS..+-(FRESS S)." 

00440 PRINT "-WORDS WITH 6 LETTERS..++(PRESS 6)." 

00450 PRINT ¢FRINT {PRINT “HOW MANY LETTERS PLEASE...."INPUT DT 
00460 LET N=0 

00470 IF D=3 GOTO 1000 

00480 IF D=4 GOTO 1500 

00490 IF t=5 GOTO 2000 

00500 IF D=6 GOTO 2500 

00510 PRINT 3FRINT "IF YOU CAN’T READy HOW DO YOU EXFECT TO FLAY 
THE GAME !* 

00520 PRINT :GOTO 400 


01000 RESTORE 
01010 LET I=INTCRNDIC1)*100) 
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FROGRAM NAME: JOTTO/LIMOGES < CONT’D = 


01020 FOR Z=0 TO I~] 

01030 READ As$(Z) 

01040 NEXT Z 

01045 IF A$(Z)<"A" GOTO 1000 
01050 LET A$=A$(Z) 

01060 IF LEN(A$)<23 GOTO 1000 
01070 GOTO 3000 

01500 RESTORE 

01510 LET I=(CINTCRND(1)*100))+100 
01520 FOR Z=0 TO I-1 

01530 READ A$(Z) 

01540 NEXT Z 

01545 IF A$(Z)<"A" GOTO 1500 
01550 LET A$=A8(Z) 

01560 IF LEN(CA$)<>4 GOTO 1500 
01570 GOTO 3000 

02000 RESTORE 

02010 LET I=CINTCRNDC1)*100))+200 
02020 FOR Z=0 TO I~1 

02030 READ A$(Z) 

02040 NEXT Z 

02045 IF A#(Z)<"A" GOTO 2000 
02050 LET A$=A$(Z) 

02060 IF LENCA$)<>5 GOTO 2000 
02070 GOTO 3000 

02500 RESTORE 

02510 LET I=CINTCRNINC1)*100) +300 
02520 FOR Z=0 TO I-1 

02530 READ A$ (Z) 

02540 NEXT Z 

02545 IF A$(Z)<"A" GOTO 2500 
02550 LET A$=A$(Z) 

02560 IF LEN(CA$)<>46 GOTO 2500 
02570 GOTO 3000 

03000 LINE INFUT “YOUR GUESS FLEASE see eee er ee eee eee rere eee ee eee ee 
ooee "FBS 

03005 LET N=Nti 

03010 IF B¢<>"Z" GOTO 3051 

03020 PRINT tPRINT “THE WORD IS --~ "SASF" mmm es" 


PROGRAM NAMES JOTTO/LIMOGES «= CONT‘’D > 


03030 PRINT ¢FPRINT "YOU HAD MADE "sNs" TRIALS." 
03040 PAUSE 700 
03050 GOTO 7000 


03051 REM * IF B¢<>" PPP * GOTO 3054 
03052 REM XK PRINT * ??? * 

03053 REM x GOTO 3000 

03054 REM * IF BS<>" PPP " GOTO 3057 
03055 REM * FRINT “ ??? * 

03056 REM * GOTO 3000 

03057 REM *X IF BS<>" PPP " GOTO 3060 
03058 REM X PRINT " ??? * 

03059 REM *X GOTO 3000 

03060 REM * IF B¢<>" PPP * GOTO 3063 
03061 REM * FRINT " ??? * 

03062 REM *X GOTO 3000 

03063 REM *X ETC. TO LINE 3099» AS NEEDED, 


03100 IF LEN(CBS)=LEN(A$) GOTO 4000 

03150 PRINT "FLEASE INPUT A "SLEN(CA$)$" LETTER WORD!" 
03160 GOTO 3000 

04000 LET C=0 

04100 IF LEFT$(AG*1)<>LEFT$(B$*s1)GOTO 4250 
04110 C=C+1 

04120 IF MIDS (A$s291)<¢>MI0$(B$r291)GOTO 4420 
04130 C=Ct1 

04140 IF LEN(A$)=3 GOTO 4230 

04150 IF MIDS (AS$s3r1)<2>MIDS(B$23%1) GOTO 4620 
04160 C=C+t1 

04170 IF LENCA$)=4 GOTO 4230 

04180 IF MIDGS(A$s421)<>MI0$(B$2421) GOTO 4820 
04190 C=CtH1 

04200 IF LEN(A$)=S GOTO 4230 

04210 IF MIDS(AS$sS21)<>MIDS(B$r5x1) GOTO S010 
04220 C=Ct1 

04230 IF RIGHT#$(AG$s1)<>RIGHTS$(B$+1) GOTO 5190 
04240 GOTO 6000 

04250 IF LEFTS(AS$*s1)<>RIGHT$(B$r1) GOTO 4280 
04260 C=C+1 

04270 GOTO 4420 

04280 IF LEFT$(AGs1)<>MIDG(BS$92%1) GOTO 4310 
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04290 C=Ctl 

04300 GOTO 4420 

04310 IF LEN(A$)=3 GOTO 4420 

04320 IF LEFT$(AG*s1)<>MID$(B$23¥1) GOTO 4350 

04330 C=Ct1 

04340 GOTO 4420 

04350 IF LEN(A$)=4 GOTO 4420 

04360 IF LEFT$(A$*1)<>MIDS(B$»491) GOTO 4390 

04370 C=Ct1 

04380 GOTO 4420 

04390 IF LENCA$)=5 GOTO 4420 

04400 IF LEFT$(AGrs1)<2MIDS$(B$r521) GOTO 4420 

04410 C=Ct1 

04420 IF MIDS(ASr2r1)<>LEFTS$(B$21) GOTO 4450 

04430 C=C+t1 

04440 GOTO 4620 

04450 IF MIDS(A$e271)<>MID$(B$2221) GOTO 4480 
04460 C=Ct1 

04470 GOTO 4620 

04480 IF LEN(A$)=3 GOTO 4600 

04490 IF MIDS$(A$s291)<>MID$(B$r3x1) GOTO 4520 
04500 C=Ct1 

04510 GOTO 4620 

04520 IF LEN(CA$)=4 GOTO 4400 

04530 IF MID$(A$r21)<>MID$(B$24r1) GOTO 4540 
04540 C=Ct1 

04550 GOTO 4620 

04560 IF LEN(CA$)=5 GOTO 4600 

04570 IF MIDS$(A$y291)<>MIDS(BS$»Sr1) GOTO 4400 
04580 C=Ct1 

04590 GOTO 4620 

04600 IF MID$(A$s291)2>RIGHT$(B$r1) GOTO 4620 
04610 C=Cti 

04620 IF LEN(A$)=3 GOTO 5190 

04630 IF MIDS(A$r 391) <>LEFTS$(B$»1) GOTO 4660 

04640 C=Ct1 

04650 GOTO 4820 

04660 IF MIDS (AG$r371)<>MIUS(B$2271) GOTO 4690 
04670 C=Ct1 
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04480 
04690 
04700 
04710 
04720 
04730 
04740 
04750 
04760 
04770 
04780 
04790 
04800 
04810 
04820 
04830 
04840 
04850 
04860 
04870 
04880 
04890 
04900 
04910 
04920 
04930 
04940 
04950 
04960 
04970 
04980 
04990 
05000 
05010 
05020 
05030 
05040 
05050 
05060 


GOTO 4820 

IF MID$(AGs3e1)<>MIDG(BSr321) GOTO 4720 
C=C+1 

GOTO 4820 

IF LEN(A%)=4 GOTO 4800 


IF MIDS (A$*3r1)<>MID$(BR$2421) GOTO 4760 
C=Ct1 

GOTO 4820 

IF LEN(A$)=5 GOTO 4800 


IF MIDS(ASs3e1)<>MIDS$(BS$rS5¥1) GOTO 4800 
C=Ct1 

GOTO 4820 

IF MIDS(A$e3r1)<>RIGHTS$(B$e1) GOTO 4820 
C=C+1 

IF LEN(A$)=4 GOTO 5190 

IF MIDS(A$s471)<2LEFT$(B$r1) GOTO 48460 

C=Ct1 

GOTO 5010 

IF MIDS (ASr4e1)<>MIDS(BS$2221) GOTO 4890 
C=Cti 

GOTO 5010 

IF MIDS(AG$2 491 )<>MIDG(B$23rx1) GOTO 4920 
C=C+1 

GOTO 5010 

IF MIDS(ASs4e1)<>MIDS$(BS$14e1) GOTO 4950 
C=C+1 

GOTO 5010 

IF LENCA$)=S5 GOTO 4990 

IF MIDS(ASs4e1)<>MIDS(B$95e1) GOTO 4990 
C=C+t1 

GOTO S010 

IF MID$(A$*491)<>RIGHT$(B$21) GOTO S010 
C=Ct1 

IF LENCA$)=5 GOTO 5190 

IF MID$(ASeSe1)<2LEFT$(B$21) GOTO S050 

C=Ct+1 

GOTO 5190 

IF MIDS(AGSeSr1)<>MIDS(B$r2r1) GOTO 5080 
C=Ct1 
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05070 GOTO 5190 

OS5S080 IF MIDS (AGeS21)<>MIDS(B$2321) GOTO 5110 
05090 C=Ct1 

05100 GOTO 5190 

05110 IF MIDS(A$rsSe1)<>MIDS(B$r4e1) GOTO 5140 
05120 C=C+1 

05130 GOTO 5190 

05140 IF MIDS(A$sSr1)<>MIDS(BS$2521) GOTO 5170 
05150 C=Ctl 

05160 GOTO 5190 

O5170 IF MIDS(A$eSx1)<>RIGHT$(BG21) GOTO 5190 
05180 C=Ct1 

05190 IF RIGHTS$(A$s1)<>LEFT$(B$r1) GOTO S220 
05200 C=C+t1 

05210 GOTO 5500 

05220 IF RIGHTS (A$+1)<>MIDS$(B$2291) GOTO S250 
05230 C=Ct1 

05240 GOTO 5500 

05250 IF LEN(A#)=3 GOTO 5370 

05260 IF RIGHT$(A$s1)<>MIDS$(BS$r321) GOTO 5290 
05270 C=Cti 

05280 GOTO 3500 

05290 IF LEN(A$)=4 GOTO 53370 

05300 IF RIGHT$(AG$r1)<>MIN$(B$2491) GOTO 5330 
05310 C=Ct1 

05320 GOTO S500 

05330 IF LEN(A$)=S GOTO 5370 

05340 IF RIGHTS (A$s1)<>MIDS(B$*S71) GOTO 35370 
05350 C=Ctl 

035360 GOTO 5500 

05370 IF RIGHT#$(A$s1)<>RIGHT$(B$21) GOTO S500 
05380 C=Ct1 

05500 PRINT "NUMBER OF LETTER(S) GOOD cee sree er er ree eeeee eee erees 
covece oo" 3G 

05400 GOTO 3000 

06000 PRINT tPRINT TAB(20)"XXHKKK JOTTO *KKKK" 
06010 FRINT tPRINT "YOU MADE IT IN "#N#" TRIALS." 
06020 FRINT 

06030 IF N23 GOTO 6060 
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06040 
06050 
06060 
06070 
06080 
06090 
06100 
06110 
06120 
06130 
07000 
07010 
07020 
07030 
07040 
07050 
07060 
07070 
07400 
073500 


FRINT "YOU ARE A MIND READER....OR YOU CHEAT! !!!" 
GOTO 7000 

IF N=15 GOTO 6090 

PRINT "FRETTY GOOD." 

GOTO 7000 

IF N=30 GOTO 6120 

PRINT "YOU COULD [DO BETTER...++CAN YOU...++TRY AGAIN!" 
GOTO 7000 

PRINT "YOU’RE STUPID." 

GOTO 7000 

PAUSE 1000 

FOR Q=0 TO 112PRINT {NEXT Q 

LINE INFUT "DO YOU WANT TO TRY AGAIN..+.¢°Y’ OR ’N’%) "304% 
IF C$="¥" GOTO 300 

IF C#="N" GOTO 7400 


PRINT :FRINT "FLEASE ANSWER BY ’Y’ OR ’N’.e-!11" 
PRINT 

GOTO 7020 

FOR Q=0 TO 113FRINT CHR#(7)3NEXT Q 


PRINT "THANK YOU FOR PLAYING WITH ME» I WAS LONELY WITH THE 


SWITCH OFF." 


STOP 
DATA "YEN" "YAW" s "WHO" » "WET" »"WAX"s"WAG"s"USE"» "TWO" "TRY" » 


DATA "TOG" "TIN" + "TIC"s "TAX" y "TEN" "SIX" "SUB" » "SPY"» "SOY"» 
DATA "SIF", "SEX" "SEW"» "SEN" » "SAG*» "RUE" "RIB"» "RED" » "RAW" » 
DATA "PUT" "PUB" "FRO"» "POTS s "PIT" "PAW" s "FEG"» "OWL" »"OUT"y 
DATA “ORE*» "ONE" s "NUT" » "NOR" y"NET"» "NAY" »"MOW"s "MIX"» "MAT" y 
DATA "LID", "LAW", "LAD" s "KEY" s "KIT" s "JUG" ys "JAY" » "HUM" » "HOW" » 
DATA "HOG": "HIM" » “HEN"» "HAW" »"GUT"»"GUN"»"GOA"»"GNU"»"GAS"» 
DATA “FIX"s "FAT" "ETA*s "END": "ELK" » "EGO" *s "DYE" "HUO"s "LOG" s 


DATA “DIF "> *DEN"» "DAY" »"COF"y "CAF" »"CAM"» "BUY" "CAB" y"BUN"y 
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10009 DATA 
"ALE" 
10010 DATA 
"ys "WEAK" 
10011 DATA 
*» “TRUE ® 
10012 DATA 
*»"SUIT® 
10013 DATA 
"»y "SINK" 
10014 DATA 
"» "ROSE® 
10015 DATA 
"»y "RAIL" 
10016 DATA 
“2 "PITY" 
10017 DATA 
"» "NONE * 
10018 DATA 
"» "HAZE" 
10019 DATA 
"» "DALE" 
10020 DATA 
"y "CHEW" 
10021 DATA 
10022 DATA 
“» "UNDER® 
10023 DATA 
“»y "TRACK" 
10024 DATA 
"y "SUGAR" 
10025 DATA 
"»y "SPARK" 
10026 DATA 
*» "RAZOR" 
10027 DATA 
"»y "PANTS" 
10028 DATA 
*»y "MOVIE" 
10029 DATA 
“» "LOWER" 


"BIN",s "BOW"'>s "BID" »*BET*,s "BAD" » "AWE" "EAT": "ATE" » "ARM" + 
"YELF*, "YEAR" » "WORD", "BYTE" » "WINE" » "WOLF "s+ "WHIT" » "WHAT 
"WASH" » "VOTE" > "VINE"s "VIEW", "VEIL "» "UFON"» "TURF" » "TYPE 
"TRIG" s "TRIF "+ "TORY" s "TRAP" s "TIME" s "TEAR" s "TALE" » "TAXI 
"SUCH" s "STUN" sy "STEM" » “SFUR"y "SPIT" s "SOAR" » "SNOW" + "SLUM 
"SILO"»"SIFT"s"SHOT"» "SHAY" » “SEND » "GOLF "» "SALT" » "RIPE 
"ROPE" s "RITE" s "RING" y "REST" » "RAIN" » "ROALD" + "RASH" » "RACK 
"QUIT" » "QUIF"» "PYRE" s"PRIM*s "PORK" s "POST" » "AXIS" » "POET 
"PIPE's "FAST" s "PEAK" "PART" +s "FALM"» "FAIN" » “OVEN®» "OPAL 
"NOSE"»"NORM*» "NEST" s "NAVE"» "NAME" » "MUST" » "MAKE" s "LIST 
"DOCK", "DOPE" s "DISC" s "DIETS "DICE", "DESK"» *DENT" » "DEFT 
"DAUR" » “CURE"»“CURB"» "CULT" » "CRAW"» "COVE"» "COPE" » "CORN 


"BOWL" 
"WHALE" » "WEIGH" » "WAGON" » "VITAL" » "VAULT" » "URBAN" » "UNSEX 


"STRAP", "SHEAR" » "TWINE*y "TWANG" » "TRUMP" » "TURBO" » “TUMOR 
"TIMER" » "THROW" y "THICK" » "TAWNY"» "TABLE" » "SWARM" » "SWAMF 
"SUPER" » "SUAVE" » "STRAW" s "STEAK" s "STAIR’ s "SPILT" » "SPICE 
"SMOKE" » "SMART" » "SAVOR" s "SAUCE" » "ROAST" + "RHYME" » "RINSE 
"REBUT" s "RADIX" *QUOTE" » "PULSE" »"FLEAT"»s "PIANO" » "PLACE 
"ORGAN" » "NYLON" » “NURSE"» "NOTCH" » "NITRO" » "NORTH* » "NAKED 


"MOTEL" » "HOTEL" » "MITER" » "MINOR" » "MINCE" » "MERIT" » "MAJOR 
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10030 DATA 
"y" JULEP * 
10031 DATA 
“» "HINGE" 
10032 DATA 
"» "FRESH" 
10033 DATA 
“» “DWARF " 
10034 DATA 
10035 DATA 
“VERIFY "“ 
10036 DATA 
*TOLILET* 
10037 DATA 
"STOLEN" 
10038 DATA 
"SALMON" 
10039 DATA 
"RATION" 
10040 TATA 
"PRINCE" 
10041 DATA 
"PATRON" 
10042 DNATA 
“NUTMEG” 
10043 DATA 
"MOTIVE" 
10044 DATA 
"MATRIX" 
10045 DATA 
"LESION" 
10046 DATA 
"INSULT" 
10047 TATA 
"HARDEN" 
10048 DATA 
"FISCAL" 
10049 TATA 


"LOYAL" "LODGE", "LIGHT" » "LEARN" » "LATCH" » "LABOR" » "KNIFE 
*"JOUST*’,y"JOULE"»s "INTER" s "INLAY" » "INDEX" » "HYDRO" » “HOARD 
"GUMBO" » "GROUP "» "GRIEF" » "GRAVE" » "GLORY" »"GIRTH*" » "GAMIN 
"FROCK" » "FRUIT" s "FINAL" » "FABLE" » "EQUIF"» "EQUAL "» "ERICT 


"CRUMB" » "COMET" » "CHIME" » “BURST " 
"WISDOM" s "WINTER" » “WHITEN* » "WARMTH" » "VULGAR* » "VOLUME " » 


"VERBAL "sy "VALISE"»s "UPTOWN" » "ULSTER" »"TURBIDG » "TROFHY" » 
"TOSCIN"’» "THRONG" s "TEACUP" » "TANDEM" » "SYNTAX" » "SWATCH" » 
"SQUIRM"» "SFHINX"» "SOMBER" » "SMOKER" » "SILVER" + "SERIAL" » 
"QUOITS"s "SAFETY"» "SALINE" + "RIPSAW"» "RETINA" » "RECTAL" » 
"QUENCH" » "QUIVER" "PURITY" s "PUBLIC" »s "FSYCHO"s"FROFIT" » 
"PRIMER": "PREFIX" » “FORTLY"» "PFONDER" » "PLIERS" » "FHRASE “ » 
"PARENT": "PALTRY" » "OUTLAW" » "ORFHAN" » "OCTAVE" » "OBLIGE" » 
"NUDITY" » "NIMBLE"»s "NEGATE" » "NATIVE" » "MUDCAT" » "MOTHER" 
"MOSAIC*» "MODERN" » "KOSHER" » "MIRAGE" »"KIDGET"» “MICRON® » 
"MENTAL" » "LUNACY" » "LOUVER"» "LIZARD" » "LIQUOR" » "LINEAR" » 
"KIDNAP *s "JUNKER*»"JOSTEL"» "INVEST" s "ISLAND" » "ISOMER" » 
"INFORM" >» “IMFORT*» “ICEMAN"s "HYBRID" » "HURDLE" » “HOMAGE " » 
“GOLDEN » "GOSPEL" » "GENIAL" » "GATHER" » "GARDEN" » "FRUGAL" » 


"DISARM" » "CLIMAX" 
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PROGRAM NAME? KLONDIKE/WHITESIDE 


00001 REM KLONDIKE/WHITESIDE 

00002 DIM F(6r18) 2H(3) 2063) oF (3) 9 C51) D2 (23) »N$C12) »S$03) 

00003 DEF FN M(M1*M2)=M1~-M2XINTCM1/M2) 

00006 DATA "AM 2 eae Ae Grete Bt Pre 10 ete Are Kee” 

B*s "0" 2 *H"s*S" 

00007 FOR I=0 TO 12:READ N$CI)$NEXT IiFOR I=0 TO 3:READ S$¢(I) ¢NEX 

TI ‘ 

00010 R=1tPRINT {PRINT "Xk KLONDIKE *k- VER.2.5°¢3PRINT "3/12/78" 

PRINT 

00011 FOR H5=0 TO 3tF(HS)=100iH(HS)=100NEXT HSIN7=0:C1=S2 

00012 FOR I=0 TO 23:202(I)=1003NEXT ItRé=1iFOR [=O TO Sitn¢1)=100: 

NEXT I 

00013 PRINT "SHUFFLING CARDIS...."#!GOSUB 6550:FRINT ¢PRINT :GOSUB 
6500 

00014 CNTRL 4/03FOR I=0 TO 63FOR K=O TO 18¢F¢CI*K)=1003NEXT KiNEXT 
TiQ=1 

0001S AZ=OSY7=12B9=OTP=LIPRINT "“RUN"SR 

00029 GOSUBR 30060:GOTO 98 

00045 GOSUB 48002 IF LEFT#(M$21)<>"Y" THEN 97 

00050 LINE INPUT "FROM(PILE, NO. OF CARIS)- "sASiLINE INPUT "TOCP 
ILE)~ "FBS 

00052 IF (T5=1 OR T5=-1) AND LEFT$(A$»s1)="H" THEN E1=1 

00053 IF T5=1 AND LEFT$(A$21)="T* THEN A$="H"$02(24-N7)=1003N7=N7 

a 

00054 GOSUB 6550{GOSUB 6000?W9=0%J1=O03B9=12IF E1l=1 THEN 5100 

00055 F9=O:TS=O2IF LEFT$(A$*s1)="H" THEN 175 

00070 IF LEFT$(B$ri)="C" THEN GOSUB 30000:GOTO 98 

00075 GOSUB 7000:GOTO 98 

00097 F9=FOFItIF F9=2 THEN F9=O03 IF A7<>1 THEN GOSUB 30060 

00098 FRINT :GOSUB 40007IF A7=1 THEN 4900 

00099 IF H(1)<2100 AND B9=1 THEN B9=03T9=0?GOTO 103 

00100 IF Y7=1 THEN Y7=0:GOTO 102 

OO101 T9=13B9=O2GOSUB 25000 

00102 PRINT "NEW HAND? "s¢SPC(2)%2:GOTO 110 

00103 PRINT “YOUR HAND? "sSFC(2)% 

00110 IF T9e>1 THEN 125 

00115 FOR HS5=1 TO 3:GOSUB 1000?H(HS)=CtIF Gi<>1 THEN IF HS<23 THE 

N PRINT "X"$SPC(2)¢3NEXT HS:GOTO 130 

00116 IF Gi=1 THEN IF HS=3 THEN 118 


4- 91 


PROGRAM NAME? KLONDIKE/WHITESIDE < CONT‘’D > 


00117 IF Gi=1 THEN FOR H6=HS+1 TO 33H(HS6)=1002NEXT H6 

00118 IF Gi=1 THEN A7=1 

00120 GOTO 130 

00125 FOR H5=3 TO 1 STEP ~1%$IF H(HS)=100 THEN NEXT H5 

00126 IF H5=3 THEN FRINT "X"§SPC(2)5"X"sSPC(2)92GOTO 130 

00127 IF HS=2 THEN PRINT "X*#SPC(2)35 

00130 C=HCHS) SH=HCHS) 2GOSUB 1LOSO3PRINT SPC(2)5 "CARDS IN? STOCK? "3 
Cis "TALON: "FN7FSPC(2)92IF M9=1 THEN RETURN 

00135 GOTO 45 

00175 IF LEFT$(B$21)="F" THEN S1=VAL (RIGHT$(B$21))3F(S1-1)=H3FOR 
H5=3 TO 1 STEP -13IF HCHS)=100 THEN NEXT HS 

00180 IF LEFT$(B$r1)="F" THEN HCHS)=100:GOSUB 30060:GOTO 98 

00185 G7=VAL(RIGHT$(B$21))3FOR I=18 TO 0 STEP ~-1¢IF FC(G7-1)*T)=1 
00 THEN IF G7-1<>I THEN NEXT I?GOTO 190 

00187 IF G7-1=I THEN IF F((G7-1)*9T)=100 THEN P((G7-1)*9T)=H?GOTO 1 
92 

00190 FC(G7-1)»¢I+1))=H 

00192 FOR H5=3 TO 1 STEP -13IF HC(HS5)=100 THEN NEXT HS 

00195 HCHS)=100:GOSUB 30060:?GOTO 98 

00999 CNTRL 4713STOP 

01000 IF Ci=1 THEN Gi=1 

01005 C=D0(C1i-1)3C1i=C1-13CNTRL 4912 PAUSE SO°CNTRL 4/03RETURN 

01050 IF C=100 THEN FRINT " "s SRETURN 

01051 PRINT NSC FN M(Cxr13))4+S$(FN M(Cr4))¢ SRETURN 

04000 FOR I=0 TO 33IF F(I)=100 THEN RETURN 

04005 CCID=FN MCF CT) 213) ¢NEXT TiIF (CC1)=12 AND C(2)=12 AND C(3)= 
12 AND C(0)=12) THEN 4015 

04010 RETURN 

04015 FRINT PRINT "ALL CARDS ARE ON FOUNDATIONS" ?R8=1:3GOSUB 5100 
*RB=O3FRINT TABCSO)"KK YOU WIN! ! &k" SPRINT 

04020 GOTO S050 

04800 LINE INFUT "MOVE? "sM#? RETURN 

04900 IF B9Y=0 THEN GOSUB 25000:GOTO S000 

04910 IF H(1)<>100 THEN 99 

04915 IF N7=0 THEN PRINT "TALON EXHAUSTED-ONLY TABLEAU PLAYS LEFT 
"sSFC(2)s3GOSUB 4800:GOTO 4965 

04920 PRINT ¢PRINT "HAND AND STOCK EXHAUSTED-" 

04930 FRINT "TOP CARD OF TALON IS-"#SFC(2)5 3HS=3 

04936 H(3)=02¢024-N7) IM9=13GOSUB 1302M9=O3GOSUB 4800 
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04965 IF LEFTS(M$r1)<>"Y¥" THEN B9=0;3GOTO S000 

04967 IF N7<>0 THEN TS=1 

04968 IF N7=0 THEN TS=-1:R=3 

04975 GOTO So 

05000 PRINT {PRINT “ALL PLAYS EXHAUSTED" ssIF Rig THEN PRINT "3 YO 
U HAVE" s3-ReiIF Re2 THEN PRINT "RUNS LEFT" ?GOTO S005 

05001 IF R=2 THEN FRINT "RUN LEFT" 

05005 R=R+t1liIF Re>4 THEN 5010 

05006 R8=1:GOSUB S1OOSFRINT ¢PRINT TAB(C22)"kxk GAME OVER? YOU LOSE 
! XK"SPRINT $R8=0:3GOTO SOS0 

05010 GOSUB 25500:C1=N73N7=O02F9=O03G1=O02FRINT {GOTO 15 

05050 LINE INFUT "WANT TO TRY AGAIN? "BS 

05060 IF LEFTS$(B$r1)="Y" THEN R=1iG1=0°C1=S2:GoTo 11 

05070 PRINT "O-K. I HOPE YOU ENJOYED THE GAME. PLEASE PLAY AGAIN 
SOMETIME.":GOTO 999 

05100 FOR T3=0 TO 2:PRINT CHRS(7)¢3CNTRL 4°12FPAUSE S?NEXT T3:3CNTR 
L. 4v03IF R8=1 THEN RETURN 

05110 PRINT "ILLEGAL PLAY!!! "s%E1=O2B9=O3FRINT SPC(2)5?:GOTO 45 
06000 IF LEN(A$)>4 OR LEN(BS)>2 THEN E1=1:RETURN 

06001 V1I=ASC(LEFT$(AG21)) 2 V2=ASC(LEFT$(CB$r1) > 2 V3=ASC (MINS (A$y 291) 
> 3V4=ASC (RIGHTS (BS71)) 

06002 IF LEFT#(A¢$»1)="H" THEN V3=52 

06003 IF (V1=67 OR Vi=72) THEN IF (V¥2=67 OR V2=70) THEN IF (V3>=4 
9 AND V3<=57) THEN IF (V¥4>=49 AND V4<=57) THEN 6005 

06004 E1=13RETURN 

06005 IF V1=72 THEN 6050 

06008 IF V2=70 THEN 6075 

06009 JS=0 

06010 FOR $1=18 TO 0 STEP -12IF PCVALCMIDUS(AG$s221))-19S1)=100 THE 
N NEXT S1 

06015 JS=JSt1liIF S1=VALCMINS(A$s291))-1 THEN 6025 

06020 NEXT Sil 

06025 IF JS<VALCRIGHT$(A$*1)) THEN E1=1¢ RETURN 

06030 W9=1iGOSUB 30000 

06031 Z=PC((E-1)»9(At1-D) SIF Y=100 THEN 6100 

06032 IF FN MCY¥213)-12>FN M(Z913) THEN E1=1? RETURN 

06035 IF FN MCY¥*s4)>FN MCZ94) THEN IF FN MC Y24)~-2=FN M(Z94) THEN E 
1=12RETURN 

06040 IF FN M(Z94)>FN MCYr4) THEN IF FN M(Z¥4)-2=FN MCY24) THEN E 
1=13RETURN 


FROGRAM NAME? KLONDIRE/WHITESIDE 


06042 IF FN M(Z*4)= FN M(Y*4) THEN E1=1?RETURN 

06045 RETURN 

06050 FOR HS=3 TO 1 STEP ~13IF HCHS)=100 THEN NEXT HS 

06060 Z=H(HS)2IF FN M(Z213)=0 THEN IF LEFTS(B$+1)<>"F" THEN E1l=1¢ 
RETURN 

06061 IF LEFT#(B$r1)="F" THEN F=VAL(CRIGHT$(B$21))3GOTO 6065 
06062 W9=1iG0SUR 30000 

06063 IF Y=100 THEN 6100 

06064 GOTO 6032 

06065 IF FC(F-1)=100 THEN 6150 

046070 GOTO 6080 

06075 W9=1iGOSUB 300007IF F(F-1)=100 THEN 6150 

06080 IF FN M(Z913)-15°2FN MCF CF-1)913) OR FN M(Zx4)2>FN MCF CF1)¢ 
4) THEN E1=1?RETURN 

06090 RETURN 

06100 IF FN M(Z¥13)2¢>12 THEN E1=1¢ RETURN 

06110 RETURN 

06150 IF FN M(Z913)<2>0 THEN E1=1?iRETURN 

06260 RETURN 

06500 FOR IT=0 TO S13 X=INT(S2xRNIC1) > 

06510 IF D¢X)=100 THEN DCX)=ISNEXT LTS RETURN 

06520 IF X*>51 THEN X=X+1:GOTO 6510 

06530 X=0:GOTO 6510 

06550 FRINT "PLEASE WAIT. "“#3RETURN 

07000 Q1=VAL (MIDS (A$? 271))2X1=VALCRIGHTS$(BS$+1)) 

07010 FOR Zi=18 TO O STEP -1?2IF PC(Q1-1)*Z1)=100 THEN NEXT Z1 
07020 F(X1-1)=FC(Q1-1)9Z1)2IF (Q1-1)¢>Z1 THEN PC CQ1-1)%21)=100;3G60 
TO 30060 

07025 E=Q1iA=Z1iW5=1:GOTO 30045 

09000 PRINT TAB(29) "FOUNDATIONS" 

07005 J=1OiFOR I=1 TO 43FP RINT SPCCJOT? 

O9010 J=LISNEXT DTS PRINT 

09950 FOR I=0 TO 3i:FRINT SFPC(J)s$C=F CI) ?GOSUB 1050 

09970 J=122IF I=3 THEN FRINT *RETURN 

09980 NEXT I 

09990 PRINT TAR(30)"TABLEAU"S FOR T=1 TO 72FRINT SPCCS)T#2NEXT TiP 
RINT 

10000 FOR I=0 TO 6 

10002 FOR K=I TO 6{tIF Q=1 THEN GOSUB 10003P(KyTI)=C 
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PROGRAM NAME? KLONDIKE/WHITESI“DE < CONT‘D > 


10010 IF K=I THEN C=FC(IyK) SPRINT TABCKX9+6)5iGOSUB LOSOSNEXT K 
10015 IF Q=0 THEN IF K*7 THEN NEXT KiNEXT I 

10020 IF K=7 THEN PRINT ?RETURN 

10021 PRINT TABCKK9+46)"X"#3NEXT K 

10025 FOR B=((I+1)*9+6) TO 603FP RINT CHRS$(8)5¢NEXT B 

10060 NEXT I 

20000 L=1iK=1 

20001 C=1003FOR O=0 TO 6 

20005 IF F(OrsK)=100 THEN K=Kt12NEXT OF IF C=100 THEN RETURN 

20006 IF O=7 THEN 20050 

20020 PRINT TABCOK9+6) 5 3C=F(OrsK)SGOSUB LOSO2K=K+t1iNEXT O 

20050 PRINT {L=Lt1ik=LiGOTO 20001 

25000 FOR H5=3 TO 1 STEP -1°3IF HCHS)=100 THEN NEXT HS?RETURN 
25010 FOR I=23 TO 0 STEP -13IF D2¢1I)<>100 THEN NEXT I 

25020 IF HS5=1 THEN 25060 

25030 IF HS=2 THEN D2¢1-1)=H(2)3N7=N74+1:GOTO 25060 

25040 IF HS=3 THEN D2¢I-2)=H(3)?02¢I-1)=HC2) IN7=N7+2 

25060 D2¢1T)=H(1)iN7=N7+1 2 RETURN 

25500 FOR S=23 TO 24-N7 STEF ~130¢(N74S-24)=02(5)202(9)=100%NEXT S$ 
25510 RETURN 

30000 D=VALCRIGHT$ (A$*21))SE=VAL (MIDS (A$ 2 291))3F=VALCRIGHTS (BS 1) ) 
30001 IF LEFT#$(AGx1)="H" THEN 30030 

30010 FOR I=18 TO 0 STEP -13IF PCCE-1)*T)=100 THEN NEXT [I 

30020 Z=FPC(E-1)9TI) sA=I 

30030 FOR [=18 TO 0 STEF -13IF PCCF-1)*T)=100 THEN NEXT [2 B=F-22W 
4=1°1IF W9<>1 THEN 30040 

30031 IF W9=1 AND W4=1 THEN W4=03Y=100?RETURN 

30037 Y=P((F-1) TI) 3 B=I 

30039 IF W9=1 THEN RETURN 

30040 Di=D2W4=03FOR U=1 TO D 

$0041 PCCP) 9 (Bt01)=Z20IF (E-1)<2A THEN PCCE-1)2A)=1002GOTO 3005 
1 

$0045 FOR M=A TO O STEP ~12IF PCCE-1)9M)=100 THEN PC CE-1) 9 (M41) )= 
1OO3IF WS<>1 THEN 30051 

30047 IF M=O0 THEN PC CE~1)2M)=100:3GOTO 30040 

30048 FC CE-1) 2M)=FCCE-1) 2 CM-1))3NEXT M 

30049 FC CE-1) 2A)=100 

30051 A=A-1201=01-13Z=FCCE-1) 2A) NEXT U 

30060 Q=O?IF Ré=1 THEN R6é=0;Q=1 

30061 PRINT 3F9=O0GOSUR 9000:GOSUB 99902GOSUB 20000 

30070 RETURN 
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PROGRAM NAME? CRAPS//THOMPSON 


00001 REM CRAFS BY J.J+ THOMPSON 281 WARREN AVE. KENMORE N-Y. 142 
17 MAY 1978 

00002 REM 4200 BYTES 

00004 PRINT iPRINT tPRINT 3FPRINT SPRINT SPRINT SPRINT ¢PRINT ¢PRI 
NT ¢PRINT {PRINT 

O000S FRINT TABC15) * eee <e eee sere er a rns : 
00010 LINE INPUT "00 YOU WANT INSTRUCTIONS? "sT% 

00011 IF LEFT#(T$s1)="Y"GOTO 900 

00012 IF LEFT#(T$s1)<>"N"GOTO 10 

00014 DIM [$¢194) 

0001S T=1000 

00016 PRINT ¢FPRINT SPRINT {PRINT {PRINT PRINT SPRINT SPRINT $PRI 
NT ¢PRINT ¢PRINT 

00017 R=0 

00018 A$=" "3RS="k" 

00019 FRINT ¢:PRINT 

00020 INFUT "WHAT IS YOUR BET? "3M 

00021 IF M100 GOTO 24 

00022 IF M<=0 THEN PRINT “YOU HAVE TO BET SOMETHING! "$GOTO 20 
00023 IF Ts200 THEN PRINT “CHEAPSKATE!!!* 

00024 FRINT "PRESS ANY KEY TO ROLL THE DICE." 

00025 FAUSE 

00026 FOR X=0 TO 1:FOR Y=0 TO 6 

00027 DS(XrY)=AS 

00028 NEXT YiNEXT X 

00029 DI=INTC7KRNIVC1)) 

00030 IF 0120 THEN IF D1<7 GOTO 32 

00031 GOTO 29 

00032 N2=INTC7XRNIC1)) 

00033 IF D220 THEN IF D2<7 GOTO 35 

00034 GOTO 32 

00035 X=0 

00036 ON [11 GOSUB 419427437449 45946 

00037 X=1 

00038 ON [2 GOSUB 41942743%44945946 

00039 GOTO 49 

00040 REM ROUTINE TO SET UP DICE DISPLAY 

00041 DS(X»3)=BS i RETURN 

00042 DS(XrO)=BSilis(Xr6)=BS > RETURN 
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FROGRAM NAME! CRAPS//THOMPSON < CONT’D > 


00043 D$ (X70) =B${D$(X*3)=BSiD$ (X16) =BS $s RETURN 

00044 1S (X70) =BS$20$(Xr1)=BSi0$ (X75) =BS 2 D$ (X16) =BS$i RETURN 

00045 T$ (X70) =BS ID (Xo 1) =BS 20S (X73) = RS IDS (X75) =BSI NG (X26) =BS FRET 
RN 

00046 1$ (X70) =B${D$ (Xe 1) =BSIDS (Xe 2)=BSIDS(X 74) =BS IDS (X75) =BS IDS CX 
96)=B$ {RETURN 

00049 REM ROUTINE TO DISPLAY DICE ROLL 

00050 CNTRL 291 

00051 FOR Y=8203 TO 8211 

00052 POKE Yr255 

00053 NEXT Y 

00055 A=8202:3B=8212 

00056 FOR C=1TO 4 

00058 A=At13B=B-1 

00060 FOR X=128 TO 255 

00070 FOKE A»yXiFOKE Bex 

00075 NEXT X 

00080 NEXT C 

00089 REM ROUTINE TO PRINT DICE 

00090 FRINT {PRINT ¢PRINT ¢PRINT ? PRINT SPRINT {PRINT {PRINT ¢PRI 
NT SPRINT ¢PRINT 

000? 1 PRINT TABCLOD RAL 00 ere eererer eee TOgGPO Casper Cree reer se 
LEL EEL EP ETS 

00092 PRINT TAR(10) #°L"$SPC(3) $$ (020) SSPC(9) FDSCOr Ld FSPCCS) FTG 
00093 FRINT SPCC15) #1" 3SPC(3) $0$(170) sSPC(9) FUSCA 91d FSPCC3) 5 MT" 
00094 PRINT TAB(10) $ "I" $SFC(3) $D$(Or2) #SPC( 3) FD$( O73) #SPCC4) FDS (0 
v4) 3SPC(3) "I "Ss 

00095 PRINT SPCC1S) $1 *¢SPC(3) #D$( 172) #SPC( 3) FD$( 173) FSPCC4) FDS C1 
94)3SPC(3)5"I" 

00096 PRINT TAR(10) $ "I" $SPC(3) $D$(Or5) $SPC( 9) FD$ (0716) FSPCCS)F TTS 
00097 PRINT SPCCAS) "1" $SPCC3) FDS( 195) FSPCC9) F0S(176) SPCC SENT" 
00098 FRINT TABCLOVS* Lecce cececseeesdoesesed “SGPECIS) FP Tececssenes 
ere rei Te oe 

00099 FOKE ArySEG(DL)SFOKE BySEG(D2) 

00100 PRINT ¢PRINT 

00101 03=D1itn2 

00110 IF R=0 GOTO 130 

00120 RETURN 

00130 R=1 
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PROGRAM NAME? CRAPS//THOMFSON < CONT‘D > 


00170 
00171 
00172 
00173 
00174 
00175 
00180 
00185 
00190 
0019S 
00196 
00197 
00198 
00200 
00201 
00205 
00210 
00211 
00219 
00220 
00230 
00235 
00250 
00260 
00270 
00290 
00291 
00292 
00293 
00299 
00300 
00301 
00302 
00303 
00304 
00305 
00306 
00307 
00308 


IF 03=11 GOTO 180 
IF 03=7GOTO 180 
IF 03=12 GOTO 200 
IF D3=2 GOTO 195 
IF D3=3 GOTO 290 


GOTO 219 
PRINT 03%" NATURAL +++eeee+A WINNER! III" 
PRINT D33"FAYS EVEN MONEY’ YOU WIN"#M3 "DOLLARS" 


GOTO 210 

PRINT D3s"SNAKE EYES!..+.++YOU LOSE!" 

PRINT "YOU LOSE" $M “DOLLARS * 

M=0-M 

GOTO 210 

PRINT 03% "BOXCARS!.....YOU LOSE!" 

PRINT "YOU LOSE*#M# "DOLLARS" 

M=0-M 

T=T+M 

GOTO 320 

N4=N3 

PRINT "YOUR FOINT IS"#D4$"ROLL AGAIN" 

GOSUB 24 

03=1i+02 

IF 03=7 GOTO 290 

IF 03=04 GOTO 299 

PRINT 03%" NO POINT ROLL AGAIN. "iGOSUB 230 

PRINT "CRAPS! !!.4++++YOU LOSE" 

PRINT "YOU LOSE"#Ms "DOLLARS" 

M=0-M 

GOTO 210 

PRINT D3%" seeeesA WINNER! !!...CONGRATULATIONS "*tPRINT [033 
IF 03=4 THEN M=MK23GOTO 306 

IF 03=10 THEN M=MX2$GOTO 306 

IF [3=5 THEN M=CINT((M/2X3)k100))/100:GOTO 307 

IF D3=9 THEN M=(CINT((M/2k3)k100))/100{GOTO 307 

IF D3=6 THEN M=(CINT((M/5X6)K100))/100:GOTO 308 

IF 03=8 THEN M=CINT((M/5X46)k100))/100!GOTO 308 

PRINT " AT 2 TO 1 ODDS FAYS YOU...LET ME SEE...."tGOTO 312 
PRINT " AT 3 TO 2 ODS PAYS YOU...LET ME SEE...."!G0TO 312 
PRINT " AT 6 TO S ODDS PAYS YOU..-LET ME SEE...."{GOTO 312 
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FROGRAM NAME? CRAFS//THOMPSON <= CONT’D > 


00312 PAUSE (500) 

00313 FRINT M?* DOLLARS" 

00315 GOTO 210 

00320 IF T<0 GOTO 324 

00321 IF T<=1000 GOTO 325 

00322 IF T=1000 GOTO 3264 

00323 IF T=1000 GOTO 327 

00324 FRINT "YOU ARE IN THE HOLE.YOU NOW OWE ME $*#-T:GOTO 330 
00325 PRINT "YOU ARE BEHIND $*°#1000-T?GOTO 330 

00326 PRINT "YOU ARE EVEN AT $"#TiGOTO 330 

00327 PRINT "YOU ARE AHEAD $"#T-1000:GOTO 330 

00330 LINE INPUT "10 YOU WANT TO PLAY AGAIN (YES OR NO)? "sC$ 
00331 IF LEFT#(C#r1)="Y¥" GOTO 16 

00332 PRINT tPF RINT ¢PRINT ¢PRINT PRINT {PRINT SPRINT {PRINT ¢PRI 
NT SPRINT $ PRINT 


00335 IF T<O GOTO 340 

00336 IF T1000 GOTO 342 

00337 IF T=1000 GOTO 344 

00338 IF T<1000 GOTO 346 

00340 FRINT "YOU OWE ME $"#-T#" 
U COME." 

00341 GOTO 350 

00342 PRINT "CONGRATULATIONS 
IN." 

00343 GOTO 350 

00344 FRINT "YOU CAME OUT EVEN++++NOT BAL 
COME BACK AGAIN" 

00345 GOTO 350 

00346 FRINT "TOO BAD YOU CAME OUT BEHIND.PLEASE COME AGAIN" 
00350 END 


YOU CAN BRING IT THE NEXT TIME YO 


wee eYOU ARE A WINNER. COME BACK AGA 


FOR AN AMATEUR. PLEASE 


00900 FRINT 
ANI! MAY" 
00901 FRINT 
2»93rv0R 12° 
00902 FRINT 
1 YOU WIN." 
00903 FRINT 
TL YOU" 
00904 FRINT 
BEFORE" 


"THIS IS THE GAME OF CRAPS. YOU START OUT WITH $1000 
"BET ANY AMOUNT. IF THE RESULT OF YOUR FIRST ROLL IS 
"YOU LOSE. IF THE RESULT OF YOUR FIRST ROLL IS 7»OR 1 
"ANY OTHER NUMBER IS YOUR FOINT. YOU KEEP ROLLING UNT 


"EITHER ROLL YOUR FOINTs OR ROLL A 7+ IF YOU ROLL A 7 
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FROGRAM NAME? CRAFPS//THOMF'SON 


00905 FRINT 


EFORE 


00906 PRINT 
NT AMOUNTS" 
FRINT 
FRINT 
PRINT 


00911 
bd 
0091S 


PRINT 


FRINT 


PRINT 


L. SHOW" 


00916 FRINT 


L YOU 


"ROLLING YOUR FOINT YOU LOSE.IF YOU ROLL YOUR FOINT RB 
"ROLLING 7 YOU WIN. DIFFERENT POINT VALUES PAY DIFFERE 
"AS LISTED BELOW.(PRESS ANY KEY TO CONTINUE) “tFAUSE 
TAB(10)¢"SHOOTER’S FOINT"$TAR(35) +3 "PAYOFF" 

TAB(10)%"4 OR 10"$TABR(35)5"2 TO 1 (EACH $1 BET PAYS $ 
TAB(10)#"°S OR 9"$TAB(35)3"3 TO 2 (EACH $2 BET FAYS $3 
TAB(10)3"6 OR 8"$TAB(35)3"6 TO 5S (EACH $5 BET PAYS $6 
"I WILL SHOW THE DICE ROLL ON MY FRONT PANEL? AND WIL 


“THE RESULTS ON THE SCREEN.AFTER EACH PLAY I WILL TEL 


00917 FRINT "HOW MUCH YOU ARE AHEAD OR BEHIND. YOU DO NOT HAVE TO 
STOF PLAYING" 

00918 PRINT "IF YOU LOSE ALL YOUR MONEY» HOWEVER YOU MAY END UP O 
WING ME A* 
00919 PRINT "CONSIDERABLE AMOUNT OF MONEY," 

00920 PRINT "(PRESS ANY KEY TO START THE GAME) "PAUSE 
00921 GOTO 14 


oe 
o 


ad 


of 


o 


+ 


of 
Sad 
oe 
++ 
+ 
2? 
7+ 
+ 
+ 
*? 
7 
*?* 
od 
+e 
7 
7 
oo 
7 
oe 
i ad 
oe 
7 
7 
oF 
7 
oe 
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FROGRAM NAME? GALLERY/ 


00001 REM 4890 BYTES 


00010 ¢ REM - GALLERY (APRIL 2771978) 

00011 ¢ REM ~ EXT’D BASIC - 10.02.01 

00012 ¢ REM ~ 16K / H-9 AT 600 BAUD 

00020 GOSUB 2003 REM - INITIALIZE 

00030 GOSUB 400: REM ~- BUILD GALLERY SAMUEL L COX 
00035 GOSUR 5003 REM ~- PROMPT SHOOTER 2412 ZENITH COUR 
T 

00040 GOSUB 600: REM ~ RUN TARGET FT. COLLINS, COL 
0 

00045 GOSUB 800: REM - SCORE 8052 


00050 GOTO 9003 REM ~ WHAT’S NEXT? 
00060 GOSUB 530: REM -— PROMPT END GAME 
00070 GOTO 10; REM - RESTART GAME 
00099 ¢ 
: REM ~- SHOT FIRED 
00110 K=K1i+F0S(0)2S¢N1)=SCN1) 41 
00120 IF K=32 OR K=43 THEN PRINT Bs 3H(N1)=HC(N1)4+2°G0TO 140 
00125 IF K=49 THEN FRINT BS tH(N1)=H(N1)41:GOTO 140 
00130 IF K=37 THEN PRINT BS$2HC(NL)=H(NL)4+32K1=INTCSKRND C1) )~21 
00140 IF FPIN(240)=111 THEN 140 
00150 GOTO 650 


00199 3: 
00200 + REM ~ INITIALIZE 
00205 F3¢=" ROUND #°tF2¢=" PRESS ‘GO’ TO BEGIN " 


00207 F4$="S HOOTING GALLER Y" 

00210 BS="k"+CHR$(7)+CHRS$(8) 

00212 S$=CHRS$ (10) 4CHRE$ (10) $S$=S$+S$t+S$t+S$t+S$+5$ 

00215 PRINT S#iPRINT TAB(20)5P4% 

00216 PRINT TABR(19)3"CINSERT 25 CENTS FOR EACH PLAYER)" 

00217 IF H8=0 THEN 220 

00218 FRINT TAB(20)3{LINE INFUT “NEW GAME OR OLD ? "sES 

00219 IF LEFT#(E¢r1)="O" THEN 277 

00220 CLEAR N#(iCLEAR SCCLEAR H¢ 

00222 FRINT TAB(20)s¢LINE INFUT "DO YOU WANT THE INSTRUCTIONS 7? * 


00224 IF LEFT#(E$r1)="Y" THEN GOSUB 1100:GOTO 230 
00226 IF LEFT#(E$r1)<>"N" THEN PRINT TABC27)3"’YES’ OR ‘NO’ "3GOTO 
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FROGRAM NAME? GALLERY/ 


00230 FRINT TAB(20)5? INPUT "HOW MANY SHOOTERS ARE THERE ? "$N 
00235 N=INTCABS(N))3IF Ne=0 THEN FRINT CHR$(7)3:GOTO 230 

00240 DIM N$(N)INS(N)="GAME OVER“ IN=N-120IM SCN) HON) 2N1=0 

00250 FOR I=0TO N 

00260 PRINT TAB(20)¢"SHOOTER*#I+19"IS ? "$3LINE INPUT ""s3N$(T) 
00270 NEXT I 

00275 FRINT TAB(20)9N$(0)%"» HOW MANY SHOTS FER ROUND ? "$fINPUT 
""3MIM2=M 

00276 PRINT TAB(20)3*ANDIy HOW MANY ROUNDS ? "$$ INFUT °"$M1SM4=M1 
00277 FOR I=0TO NiH(I)=0%S(I)=O3NEXT I 

00278 N1=03H9=0!M=M22M1=M4 

00290 RETURN 


00299 3 
00400 ¢ REM - BUILD GALLERY 
00410 Ag="~ - ~~ ~ KXKKKK- - = eK . 


00420 FRINT S$iPRINT TAB(23) A$ 

00425 PRINT TAB(23) 5F 4% 

00430 PRINT TAB(23) sA$SCHRE(10) #CHRS(10) 

00440 PRINT TAB(23) M1 "ROUNDS / "$M23"SHOTS PER ROUND" 
00445 PRINT LEFT$(S#93)2PRINT TAB(28)3"-2- $ -3- $ -2- t -1-" 
00450 FOR I=1TO 27%FRINT "="$$NEXT I 

00460 FRINT "1"¢i3FOR I=1TO 233FRINT “ "$iNEXT I 

00470 PRINT "C"siFOR I=POS(0)TO 793FPRINT “"="3tNEXT I 


00475 P1I$=F3$+" 1 "3M3=1 
00480 RETURN 

00499 3 

00500 } REM ~ PROMPTS 


00510 GOSUB 590:GOSUB 700 

00530 PRINT FP1i¢s$GOSUBR S90iFAUSE 100 
00540 PRINT F2¢siGOSUB S90?W=O0:GOSUBR 1000 
00545 IF Ws=30 THEN 530 


00350 FRINT * "3 
00560 RETURN 

00579 3 

00585 3 REM - BRING TARGET HOME 


00590 FOR I=FOS(0) TO 30 STEP ~13PRINT CHR$(8)$¢NEXT I 
00595 RETURN 

00599 3 

00600 3} REM - RUN TARGET OUT 
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PROGRAM NAME: GALLERY/ = CONT‘’D > 


00610 K1i=INT(3XRNDC1))-1 

00620 GOSUB 590 

00625 IF S(N1)>=M THEN RETURN 

00630 FOR I=1T0 23:PRINT " "3% 

00645 IF PIN(€240)=111 THEN 110 

00650 NEXT I 

00660 GOTO 620 

0049? ¢ 

00700 } REM - PRINT PLAYER’S NAME 

00710 FOR I=FO0S(0) TO 6 STEP ~-1tPRINT CHR$(8)%3NEXT I 
00730 IF M1i==0 OR M=M2 THEN PRINT "J "+N$(N1)4" C**3GOTO 750 
00740 PRINT "J "SNSCND)F* S" PHONE) FTE'S 

00750 FOR I=FO0S(0) TO 272FRINT "="#tNEXT I 

00780 PRINT "1" $RETURN 

O0799 | 

00800 : REM ~ SCORE GAME 

00810 A$S=" SHOTS! "+STRE(SCNL) 4" FTSI*+STRE(HCNI)) 
00820 IF LEN(A$)<23 THEN At=A$t" "3GOTO 820 

00830 PRINT A$? 

00840 IF H(N1)<=H9 OR N=O THEN 860 

00850 PRINT "C======] HIGH IS"#H(N1)¢"C"# SHP=HONI) 
00860 GOSUB 590 

00870 FAUSE 250 

00880 RETURN 


00899 : 
00900 REM - WHAT IS NEXT i 
00910 Ni= NititIF Nis=N THEN 35 REM ~- NEXT PLAYER 


00920 Mi=M1-13IF M1i<=0 THEN 940 
00930 N1=O{M=MtM2IM3S=M3412F1$=P3S4+STRS OMS) 
00934 IF LEN(F1$)<23 THEN Fis=Fi$+" "GOTO 934 


00938 GOTO 35: REM ~- NEXT ROUND 

00940 P2¢="FRESS ‘GO’ ON H~-8 . 

00945 Pig="TO RESTART ‘GALLERY’ ‘ 

00950 GOSUBR 7OOtIF N=0 THEN 960 

00955 PRINT " EXCELLENT CONTEST ! "# }GOSUB SPVOSPAUSE 500 

00960 FRINT " FINAL SCORE sLEFT&(S$94-N) 

00965 FOR I=0TO N?IF H¢(I)=H? AND N>O THEN PRINT TAB(13)s"HIGH SCO 
RE ->"3 


00967 PRINT TAR(27)3NS(T)¢" 3" FHC1I)¢ "OUT OF"sSCI)SNEXT I 
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PROGRAM NAME? GALLERY/ «= CONT’D > 


00970 PRINT CHR$(10)#TAB(C27) $ 


00980 H8=H8+13GOTO 603 REM ~ NEXT GAME 
00999 3 
01000 3 REM ~- WAIT FOR ‘GO’ 


01010 IF PIN(240)<>246 AND We30 THEN W=W4+1iGOTO 1010 
01020 RETURN 


01099 3 

01100 } REM ~- INSTRUCTIONS 

01110 PRINT S#$TAB(20) $F 4$3CHR$(10) 

01115 FRINT * A GAME FOR ONE OR MORE PLAYERS» ‘GALLERY’ SIMUL 
ATES THE" 


01120 FRINT "ACTION OF A CARNIVAL SHOOTING RANGE. AFTER SOME SEL 

F-EXPLANATORY " 

01125 PRINT “QUESTIONS, THE TARGET RANGE IS DISPLAYED ON THE MONT 
TOR SCREEN. * 

01130 PRINT "PLAYERS THEN SHOOT IN ORDER. EACH MUST USE THE ‘GO’ 
KEY ON THE" 

01135 PRINT "H-8 FRONT FANEL TO BEGIN A TURN. THE °x’ KEY SERVE 
S AS THE" 

01140 FRINT “TRIGGER. (USE THE MOVING CURSOR AS A ‘SIGHT’.) TH 
ERE IS ONE* 

01145 PRINT “HIDDEN TARGET IN EACH OF THE FOUR SECTORS OF THE RAN 
GE* SOME ARE" 

01150 PRINT "WORTH MORE THAN OTHERS. "$SPC(17)3"HIT ‘RETURN’ TO BE 

GINy* 

O1155 LINE INPUT "OR TYPE ’M’ IF YOU NEED MORE INFORMATION. "3E$ 

01160 IF LEFT$(E%s1)="M* THEN GOSUB 1200:!GOTO 1170 

01165 IF LENCE$)<>0 THEN PRINT "EITHER ‘RETURN’ "3$GOTO 1155 

01170 PRINT S#iFRINT TAB(20) $F 4$ 

01180 RETURN 


OL199 3 

01200 3 REM ~ MORE INSTRUCTIONS 

01205 PRINT S##TAB(20) 5F4$3CHRS$(10) 

01210 FRINT " 7 8 9 + s--~ THE DIAGRAM CLA 
RIFIES THE" 

01215 PRINT "GO> 4 ba é = ‘GO’ AND ’TRIGG 
ER’ KEYS" 

01220 FRINT * 1 2 3 * «TRIGGER MENTIONED EARLI 
ER." 

01225 FRINT * ¢) ’ ¥ y* 


of 


FROGRAM NAME? GALLERY/ < CONT’D - 


01230 PRINT TAB(25)s"FPRESS ‘GO’ TO BEGIN EACH TURN. THEN" 

01235 PRINT "USE THE ’TRIGGER’ TO FIRE AT THE UNSEEN TARGETS. TH 
E RANGE IS" 

01240 PRINT “MARKED OFF INTO FOUR SECTORS+ IN EACH SECTORy ONE T 
ARGET MAY BE" 

01245 PRINT "AT ANY OF THREE LOCATIONS. TO MAKE THINGS EVEN HARD 
ERy TARGET" 

01250 PRINT "“FOSITIONS MAY CHANGE FROM FLAYER-TO-FLAYERy ROUND-TO 
~ROUND, EVEN" . 

01255 PRINT "DURING A FLAYER’S TURN. FRESS ’RETURN’ KE 
Y FOR MORE. "3 

01260 FAUSE ¢PRINT 

01265 FRINT "TARGETS CAN BE HIT ONLY WHILE THE ‘SIGHT’ IS TRAVELL 
ING FROM LEFT" 

01270 FRINT "TO RIGHT ACROSS THE FIELD, RELEASE THE TRIGGER AFTE 
R EACH SHOT?" 

01275 PRINT "THERE IS NO MACHINE-GUN ACTION. IF YOU DO GET MORE S 
HOTS OFF THAN" 

01280 PRINT “ALLOWED IN ONE ROUND,» YOU WILL BE PENALIZED IN THE N 
EXT. THERE" 

01282 PRINT "IS NO TIME LIMIT TO SHOOT. A ‘BEEF’ ANDI A FLASHy LI 
KE THIS," 

01283 PRINT “(PRESS ‘RETURN’ )"sCHR$(13)5 ;PAUSE 

01284 FOR I[=1TO SSFRINT SPC(10)sB¢+" "SSNEXT ItPRINT CHRS(13)% 
01286 PRINT "WILL MAKE YOUR SCORES OBVIOUS. PRESS “RETURN’ T 
QO BEGIN. “» 

01288 FAUSE ¢PRINT 

01290 RETURN 

O1299 ¢ 
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PROGRAM NAME? MISSILE/FALE 


00010 REM MISSILE/FALE 
00100 FOR L=0TO 83PRINT ¢NEXT L 


00110 PRINT “OH NO !!! NOT WORLD) WAR IIT !!) A MISSILE HAS JUST 
BEEN LAUNCHED" 
00120 PRINT “AT THE UNITED STATES - - ~ COMPUTER TRACKING SYSTEMS 


ACTIVATED - -" 

00130 PAUSE (2000) 

00140 FOR L=0OTO 7O?FRINT "-"s2NEXT Li PRINT 
00141 R1I=INTCCRNDIC1)+.6)9*100) 

00145 GOSUB 12000 


00150 FRINT "TARGET: * NS 

00160 FAUSE (1000) 

00180 PRINT "VECTOR RANGE; *" Rik256 " VECTOR KILOMETERS" 
00190 FAUSE (1000) 

00200 PRINT "LAUNCH ANGLE? TO BE DETERMINED" 


00210 FAUSE (1000) 

00220 PRINT "TIME OF IMPACT? 2 MINUTES 10 SECONDS" 
00230 FOR L=0OTO 7OtPRINT "-"S3NEXT LS PRINT 

00240 FAUSE (2000) 

00250 PRINT 

00251 IF T==1G0TO 300 

00260 PRINT " **x QUIT STAIRING AT THE SCREEN ANID TAKE EVASIVE AC 
TION xx" 

00270 PRINT 

00280 FAUSE (1000) 

00290 REM A=ACTUAL ANGLE FROM CLOCK «60 DEGREES 
00300 A=FEER(8219) 

00310 IF A>é0GOTO 300 

00320 REM ZERO CLOCK 

00330 FOKE 822010 

00340 FRINT "ENTER ANTIMISSILE FIRING ANGLE" 

00350 INFUT Al 

O0351 IF X<4 GOTO 340 

00352 IF F1i=0 GOTO 360 

00353 IF ABSCA~-A1)I=5 GOTO 340 

00354 FRINT *- ~- - WARNING ! | ! -~ - ~ DO NOT FIRE ~- ~- ~- ELEVATI 
ON INCORRECT ® 

00355 GOTO 820 

00340 FAUSE (1000) 
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FROGRAM NAME? MISSILE/FALE = CONT’D > 


00370 PRINT “ENTER VECTOR RANGE IN KILOMETERS" 

00380 INPUT V 

00390 X=X+t1 

00400 IF X=4 GOTO 1100 

00410 FRINT 

00430 PRINT "MISSILE READY"s 

00440 FAUSE (1000) 

00450 PRINT TAB(14) “= - - - em rr mre FIRE MISSILE® 
00460 PRINT 9322 20 IO KK ARK KKK KKK KKK mm ee 
00470 PAUSE (1000) 
00480 FRINT * 
00485 FRINT 

00490 IF ABS(A-AL)>SGOTO 800 
00500 IF F=1GOTO 630 


-K-- * 


00600 F=1 
00610 REM FLAG SET TO SHOW CORRECT ANGLE HAS BEEN ACHIEVED 
00620 PRINT "- ~ ~ FIRING ANGLE CORRECT - - - LOCK IN STABALIZER* 


00630 GOSUR 10000 
00640 IF ABS(V1-V)>1000 GOTO 920 


00650 PRINT °- - - ~ YOU MADE A DIRECT HIT !!! MISSILE DESTROY 
Ep it* 
00660 PRINT TAB(10) "- - - - ~ ~ ~ ANTIMISSILE SUCESSFUL" 


00670 T=Tti 

00675 IF T=4GOTO 690 

00677 R2=RNDC1)*1S 

00680 IF R2=SGOTO 750 

00690 PRINT "FIRING HAS STOPPED. RELAX NOW, IT’S ALL OVER" 

00700 END 

00750 FRINT 

00755 FAUSE (1000) 

00760 FRINT "BUT WAIT!! DON’T RELAX YET-~-ANOTHER MISSILE HAS BE 
EN" 
00770 PRINT "LAUNCHED AT THE UNITED STATES" 

00775 A2=0 

OO776 X 

00777 F 

00778 F2=0 

00780 GOTO 130 

00800 FRINT "FIRING ANGLE OFF ~ - ~— TRACKING SYSTEM FEEDBACK AVAI 
LABLE" 
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PROGRAM NAME? MISSILE/FALE 


00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00935 
00940 


LOCKE 


00950 
00960 
00970 
00980 
00990 
01000 
01010 
01100 
01101 
01110 
01120 
01130 
01140 


PRINT 

IF A*A1GOTO 850 

FRINT "YOU AIMED HIGH BY " ¢A1-A) " DEGREES" 

GOTO 840 

FRINT “YOU AIMED LOW BY ° (A~-A1) " DEGREES" 

GOSUB 10000 

FRINT “UPDATED MISSILE RANGE FROM " N# "$" V1 

PRINT "VECTOR KILOMETERS" 

PRINT 

IF F=0GOTO 340 

GOTO 370 

FAUSE (1000) 

FRINT 

IF X=3GOTO 950 

PRINT " ~ - ~ FIRING ANGLE ~- - - ACCURATE ~ ~ -— STABALIZERS 
IN" 

FRINT 

IF V12V¥ GOTO 990 

PRINT “*ANTIMISSILE SHORT BY " (V1-V) " VECTOR KILOMETERS" 

GOTO 870 

PRINT "ANTIMISSILE LONG BY " (V-V1) " VECTOR KILOMETERS" 

GOTO 870 

FRINT 

IF T=0GOTO 430 

PRINT 

PRINT °=s<- «= = COMPUTER MALFUNCTION ~ - ~- ~ OVERHEATING" 

FAUSE (2000) 

FRINT 

PRINT *- ~ - -~ POWER SUPPLIES FAILING ~- -— SWITCH TO EMERGEN 


CY STANDBY" 


01150 
01160 
01170 
01180 
01190 
10000 
10010 
10020 
10030 


FAUSE (2000) 


PRINT 

FRINT "OFERATION STABALIZED - ~ - - - CONTINUE" 
PRINT 

GOTO 430 

REM TIME DISTANCE GOSUB-CHECK TIME» FOSITION:s ANGLE 


A3=A2 
A2Z=FEER (C8220) 
IF A2Z“AS3THEN GOSUB 11000 
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PROGRAM NANE? MISSILE/FALE = CONT‘’D > 


10040 IF A2>240 THEN GOSUB 11000 

10050 Vil=(256-A2) *R1 

10060 IF X=SGOTO 10110 

10100 RETURN 

10110 IF F2=1GOTO 10115 

10111 A=AtS 

LO112 F2=1 

10115 Fi=1 

10120 F=0 

10130 PRINT 

10140 FRINT " NEW UFDATE AVAILABLE - - ~ FIRING ANGLE MUST BE INC 
REASED" 

10145 X=0 

10150 GOTO 340 

11000 FOR L=0TO 93PRINT ¢NEXT L 

11010 PRINT “IT’S TOO LATE» THERE’S NO MORE TIME LEFTs WE DIDN‘’T 
MAKE IT!" 

11020 PRINT TAR(30) "THIS IS THE END" 

11040 END 

12000 IF Ri>115 THEN N#="WASHINGTON DC" 3 GOTO 150 
12010 IF R1>100 THEN N#="NEW YORK CITY" ¢ GOTO 150 
12020 IF Ri:80 THEN N$="NEBRASKAS :GOTO 150 

12030 IF R1>60 THEN N$="CHICAGO ILL" ¢ GOTO 150 
12040 N$="MILWAUKEE WISCONSIN" 

12050 GOTO 150 
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FROGRAM NAME 


00001 GOTO 3 
00002 FOR L= 
00003 REM B 


00005 FOR L=0 TO 


00010 FRINT 
I TRIED" 
00011 PRINT 
00015 NEXT L 
00017 FAUSE 
00019 FOR L= 
00020 FOR L= 
00030 FOR N= 
00040 FRINT 


00050 NEXT N 


00060 FOR M= 
00065 FRINT 
00070 NEXT L 
00075 PRINT 


00076 FAUSE 

00077 FOR L= 

00080 FRINT 

MMM" 

00090 PRINT 
mM" 

00100 FRINT 
Mm" 

00110 FRINT 
mM" 

00120 FRINT 
“" 

00130 PRINT 
M" 

00140 FRINT 
mM" 

00150 PRINT 
4" 

00160 FRINT 
M" 

00170 FRINT 


> ©£ § >< O >< F et T ee Wek A Ot R OLE O 
$ BOMB/FALE 
00 
O TO 83PRINT ¢NEXT L 
OMB/FALE 


va 


"IT’S TOO LATE! TIME HAS RUN OUT!!! COUNTDOWN FINAL. 


TO WARN YOU" 


(2000) 
0 TO 8¢FPRINT 
10 TO O STEF 


SNEXT L 
4 


1 TO 18 
Ls 
O TO 253FPRINT CHR#(007) NEXT M 
"OH NO! !!!! IT TOLD YOU! WE’RE DONE! HERE GOES» GOO 
¢2000) 
OTO 8 SPRINT $NEXT L 
TAR(S) "BREBRBBER 0000000 0000000 MMMMMMMM 
TAR(S) "EB B 0 0 0 0 M M 
TAB(S) "EB B 0 0 0 0 M M 
TAB(S) "BBEBBR 0 0 0 0 M M 
TAB(S) "BEBEREBER 0 0 0 0 M M 
TAB(S) "B B 0 0 0 0 M M 
TAB(S) "EB B 0 0 0 0 M M 
TAB(S) "B B 0 0 0 0 M M 
TAR(S) "BBBBBBE 0000000 0000000 M M 


eee sees Stee sean eee sat cnee wien tame tnee enet eens Sent ten ate tems ete tent Geet seat stee Seep etes tes sane nent seme fame seas sue suey sien Sens sien sntn fuee come Hebe sine wine ease anes sens went nent wend Mute Sue Aiet wuts ene Hees 


PROGRAM NAME? BOMB/FALE 


00180 FAUSE (2000) 

00190 FOR L=0TO 1O?PRINT ¢NEXT L 

00210 FRINT "THANKS A LOT BLOCKHEAD! I SHOULD NEVER SFEAK TO YOU 
AGAIN. " 

00211 FRINT "10 YOU WANT TO TRY AGAIN?" 

00212 LINE INFUT B#(1) 

00213 IF LEFTS(B¢(1)*1)="¥" GOTO 3640 

00214 END 

00300 FOR L=0TO SPRINT ¢tNEXT L 

00301 PRINT "HI. WHAT IS YOUR NAME?" 

00305 DIM A$¢C1) 

00306 DIM BE¢(1) 

00310 LINE INPUT A$(1) 

00320 FRINT "OKy “ A$(1) “» HERE IS WHAT WE’RE GOING TO tO" 

00330 FRINT "I’M THINKING OF A NUMBER BETWEEN 1 AND 100 ANT YOU M 
UST" 

00340 PRINT "GUESS THE NUMBER. PLEASE GUESS THE NUMBER OR WE WIL 
L ALL" 

00350 FRINT "BE BLOWN TO BITS. YOU HAVE A SHORT TIME ONLY FLEAS 
E HURRY!" 

00360 X=INTCLOOXRNIC2) 

00365 FOKE 822070 

00370 B=PEEK( 8220) 

00371 IF B>70 GOTO 2 

00372 FRINT 

00373 PRINT “THE COUNTER IS NOW AT " B "y PLEASE DON’T LET IT GE 
T TO 7S" 

00374 INFUT Y 

00390 IF Y=X GOTO 1000 

00400 IF Y“X GOTO 300 

00410 IF Y=xX GOTO S50 

00500 FRINT "TOO LOWs TRY AGAIN» YOU’RE TIME IS RUNNING OUT!!!" 
00S10 GOTO 3790 

00550 PRINT "TOO HIGHy TRY AGAINy BUT FLEASE HURRY» SECONDS ARE T 
ICKING AWAY" 

00560 GOTO 370 

01000 FOR L=0 TO S3PRINT ‘¢NEXT L 

01007 PRINT “OOOO OOOO IC COK ACK KOK 
SRO KOK OK KK * 

01002 PRINT "STOF THE COUNTER AT " B " J!!! TIME REMAINING WAS ON 
LY "¥ 
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PROGRAM NAME? BOMB/FALE 


01003 PRINT (75-B) “TIME UNITS" 
01004 FRIINT “OOOO OOO OOOO IC CCK KK 


OOOO OKO K " 

01005 FRINT 

01006 FRINT "THANK YOUs “"A$(1) “y YOU SAVED US ALL. GOOD JOB. OD 
O YOU WANT "+ 

01007 FRINT “TO TRY AGAIN?" 

01008 LINE INPUT BS(1) 

01009 IF LEFT#(B$(1)21)="Y"GOTO 360 

01010 PRINT "THANK YOUs " A$(1) " FOR HELPING ME STOP THE CLOCK. 
GOODBY" 

01020 END 
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PROGRAM NAMES LUNAR LANDER/GRUNIION 


00001 REM LUNAR LANDER/GRUNDON 

00010 PRINT TAB(15)"* * * LUNER LANDING * X xX" 

00015 FRINT TAB(20)"BY DALE GRUNDON" 

00020 FRINT " YOU ARE THE CAFTAIN OF A ‘LEM’ ATTEMPTING TO LAND 

ON THE MOON." 

00030 PRINT “YOUR FRESENT ALTITUDE IS 2350 FEET ABOVE THE MOON’S 

SURFACE AND" 

00040 FRINT "FALLING AT 470 FT/SEC. YOUR CURRENT FUEL SUPPLY Is 6 
00 FOUNDS" 

00050 FRINT "AND YOU MAY BURN FROM 0 TO 75 FOUNDS/SEC IN ORDER TO 
REACH * 

00060 PRINT "THE MOON AT A SAFE SFEED." 

00070 FRINT " THE MOON’S GRAVITATION IS ASSUMED TO BE -5 FT/SEC$ 
THEREFORE » * 

00080 PRINT "A FIVE FOUND BURN CONTERACTS AND RESULTS IN A CONSTA 

NT VELOCITY." 

00090 PRINT 

00100 T=1!G=-5tA=2350%V=-4702F =6002R=12B1=0 

00101 Q1=02Q2=02Q3=02Q4=0tE=0 

00105 GOSUB 1000 

00110 GOSUB 400 

00120 IF B&O THEN B=0 

00130 IF B=75 THEN B=75 

00140 GOSUB 4600 

00150 IF V=0 AND A=O THEN GOTO 1500 

00160 IF A<=0 THEN GOSUB 1000:GOTO 1100 

00170 IF F=0 THEN GOSUB 350 

00180 IF A<=0 THEN GOTO 1100 

00190 GOSUB 1000;GOSUER 810 

00200 GOTO 110 

00300 REM *KKKHOLD FOR FOSSIBLE REPLAYXXKXX 

00310 PRINT "TOTAL FUEL BURNS!"#B1isiLINE INPUT " WANT TO TRY AGAI 
NP "$l 

00320 IF LEFT$(Ls1)="Y" THEN PRINT SPRINT $PRINT ?PRINT :GOTO 10 


0 

00322 FRINT {PRINT 

00325 IF LEFT#(L$r1)<2"N" THEN PRINT TAB(8) "PLEASE USE YES OR NO! 
";GOTO 300 

00330 STOF 


4 = al lS 


PROGRAM NAME? LUNAR LANDER/GRUNDON < CONT’D > 


00340 REM * * * * SET COMMENTS FOR CRASH x x x 
00350 PRINT ?PRINT ?FRINT TAB(20)" THAT’S ALL THE FUEL 


00360 FRINT *° "SPRINT {PRINT TAB(23)°FR 

EPFARE TO CRASH" 

00370 GOSUB S503 PRINT :GOSUBR 7OO0!RETURN 

00400 REM kkk GET SIZE OF FUEL BURN xxx 

00410 ON R GOSUB 440% 445+450% 45574607 46574707475» 480 

00420 LET R=R+12IF R>9 THEN LET R=2 

00430 FRINT $GOSUB SSO?RETURN 

00434 PRINT :GOSUB 550 

00440 INFUT "HOW MANY FOUNDS FOR THE FIRST BURN? "$BERETURN 
00445 INFUT "HOW MANY FOUNDS FOR THIS BURN? "#RIRETURN 

00450 INPUT "SIZE OF NEXT BURN? “$BIRETURN 

00455 INPUT "HOW MUCH INSURANCE DO YOU HAVE? . . . NEXT BURN? "$B 
*RETURN 

00460 INFUT "DON’T LOOK DOWN NOW! . . .« HOW MUCH FOR THIS BURN? * 
gBS RETURN 

00465 INFUT "WATCH OUT FOR THE JAWAS WHEN YOU LAND. NEXT BURN? 
"“SBSRETURN 

00470 INFUT "HOW’S THE FUEL LASTING? . . . USE SOME MORE~ "BERET 
URN 

00475 INPUT "WHO’S YOUR BENEFICIARY? . . » NEXT BURN? "$BIRETURN 
00480 INPUT "GETTING CLOSER! . . . HOW MANY FOUNDS THIS TIME? “9B 
*RETURN 

00540 REM X kK * HOLD) SCREEN DISFLAYS xk x x 

00550 FAUSE SOO?FRINT # {RETURN 

00560 PAUSE 250:RETURN 

00600 REM %*kxk CALCULATE ALTITUDE AND SFEED ~ CONSUME FUEL 

00605 FRINT 

00610 F=F-BiB1l=Bit1sIF F<O THEN F=0 

00620 Al=V+ (AKT) +¢(B4+G)K(TKT)/2) fA=Al 

00630 V1=V+((B+G) KT) 2VU=V1 

00640 RETURN 

00700 REM XXxXxk FINISH RUN AFTER FUEL IS ZERO *xxx 

00710 B=O;F=O03FOR Q=1 TO 100%LET Q1=AiGOSUB 600 

00720 IF A<=0 THEN GOSUB 1000!RETURN 

00730 GOSUB S10!LET Q2=A 

00735 B1l=Ri-1 
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FROGRAM NAME! LUNAR LANDER/GRUNDON < CONT‘D = 


00740 IF Q1<Q2 THEN Q3=Q3+1:GOSUBR 760 

00745 IF Q12Q2 THEN Q4=Q4+1:GOSUB 760 

00750 NEXT Q 

00760 IF Q3=1 THEN PRINT TAB(10)"LOOK OUT! YOU’RE GOING INTO OUTE 
R SPACE..." 

00770 IF Q4=1 THEN FRINT TAB(10)"GET SET! YOU’VE STARTED BACK DOW 
Ne e « «* 

00780 RETURN 

00800 REM * X ESTABLISH LOCATION PRINT SCALE * xX 

00810 IF Az=1000 AND A<2000 THEN GOSUB 900 

00820 IF Az=500 AND A<1000 THEN GOSUB 710 

00830 IF Az=100 AND ASSOO THEN GOSUB 920 

00840 IF Az=10 AND A<100 THEN GOSUE 930 

00850 IF Az=.1 AND A<10 THEN GOSUB 940 

00860 IF A>=2000 THEN E=E+1tIF E=1 THEN GOTO 970 

00870 FRINT iGOSUB Sé60?:RETURN 

00890 REM * * LOCATION PRINTOUT X xX 

00900 C=40:GOSUB 9SOtPRINT TAB(S9)*< 2000 FT" SRETURN 

00910 C=20:GOSUB 9SOFRINT TAB(S9)"< 1000 FT" RETURN 

00920 C=10!GOSUB 9SO%FPRINT TAB(S9)"* S00 FT" RETURN 

00930 C=2:GOSUB 9SOSFRINT TAB(S9)"= 100 FT" SRETURN 

00940 C=.2!:GOSUBR 9S5SO%FRINT TAB(S9)"< 10 FT" RETURN 

00950 FRINT “ MOON ="$TAR(9)$$GOSUBR S603FOR D=1 TO INTCA/C-1)% 
PRINT "~"s 

00960 NEXT DiPRINT "x" RETURN 

00970 PRINT TAR(10)"YOU’RE OFF THE RADAR SCREEN «+ + «"{GOSUB 550; 
RETURN 

01000 REM * X DISPLAY RESULT OF BURN xX xX 

O1010 PRINT "ALTITUDE IS"#A¢" FEET AND SPEED IS"#Vs" FT/SEC* 
01020 IF F¢=0 THEN PRINT "THAT’S ALL THE FUEL"? RETURN 

01030 PRINT "FUEL SUPPLY IS"#Fs "POUNDS" SPRINT 

01040 RETURN 

01100 REM x * * CRASH, BUT HOW BAD * Xk xX 

01110 V3=-SQR¢ (YKY) + C2GKA) D 

01120 FRINT {!FRINT {PRINT TABR(C16)"CRASH VELOCITY WAS"#V3%"FT/SEC® 
01125 GOSUBR 350 

01130 IF V3>-10 AND V3<=0 THEN GOTO 1160 

01135 GOTO 1300 

01150 REM * * SOFT LANDING MESSAGE * X 


io 
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PROGRAM NAME? LUNAR LANDER/GRUNDON < CONT‘D > 


01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01300 
01310 
01320 
01330 
01340 
i" 
01350 
01360 
01370 
ORK" 
01380 


PRINT PRINT ?PRINT TABC20)"QUCH! UGH! OUCH!" 

PRINT TAB(S)¢?FOR H=1 TO 443F RINT "-"$%NEXT HIPRINT "-" 
PRINT TAB(6) "I" TAB(20) "I 0 0 0 I" + TAB(SO) "I" 
PRINT TABC6)"I"$TABC20)"I"$TAB(36)"I"$TABCSO) "I" 

PRINT TABC6) "I" ¢TARC20)"I"FTABC36) "I" $ TABCSO) "I" 

FRINT TABC6) "I" TABC20) "I 0) t¢) 0 I*°sTABCSO) "I" 
PRINT TAB(6)¢3FOR H=1 TO 443FP RINT "-"$3NEXT HiFRINT "~" 
FRINT ¢PRINT TAB(10)"HERE’S A BAND AID FOR YOUR INJURY" 
GOSUB SSO:GOSUR SSOtPRINT tPRINT {GOTO 1520 

REM * * DISASTER MESSAGE x x 

PRINT 3FRINT ¢PRINT ¢ PRINT 

PRINT TAB(14) "CCI" 

PRINT TABC12) "CC" TABCI9) "I" 


PRINT TARC11)"C"§TABC20)°1"°$TAB(31)"A PLAQUE WILL BE MOUNTE 


PRINT TABC141)"£ ~----- J"sTABC(33)"IN THE N.A.S.A. LOBBY" 


PRINT TABC11)"C ReI.P. J"¢TAB(34)"IN MEMORY OF YOU" 


PRINT "XXKKK"STARCL11)"£ -~---- J" 5 TABC3O) "KKKKKKKKKKK KKK KKK 


PRINT TABCS) "XXKKXXKO OU AKKKKKKKEK" § TAB CSO) *KKKKKKKKKKK 


OOK K " 


01390 
01500 
01505 
x xX 
01510 


PRINT {PRINT {GOSUR SS50:GOTO 300 

REM * * PERFECT LANDING xX x 

PRINT " kK XK kK &k & kX kK kK k x 
x kK KX kK kK Kk" 


PRINT $PRINT {PRINT $PRINT TABR(18)"FERFECT LANDING" $GOSUB 


NOsPRINT 


01515 


01520 
013530 
013540 


PRINT * 
PRINT TABC18)"_-T-_* 
PRINT TAR(17)"< 0.0 >* 


PRINT TABC7)"*@@@~"sTABR(18)"( - )"$TAR(36) "WELCOME TO THE MO 


PRINT TABC7)" (00) €0990€€0€T999900))" 
PRINT TABCIO)"(O)) COCCI) CODD" 


PRINT TABC17)"(¢0k))) CO) "FTABC36) "FINAL FUEL? "$F s "POUND 


PRINT TABC16)"((C(T)))) _@@e" 
PRINT TABCI5)"(0)) cf 2" 
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01600 PRINT TAB(10) "77°" "$TABCIS) °C0)) COD TATA MOKNN 8S TABCSS) 


mene 


’ 
01605 PRINT TABC 45) S777 TTOeenene 
01610 PRINT "7°77 7CCCC"STABCL4ADTEITE! biti t"sTABCaz)°""orrerre 


PRETEEN EET ee ; 


01615 PRINT TAB(61)"°°°°""$GOSUR S50:GOTO 300 
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PROGRAM NAME? ONE ARM BANDIT/GRUNDION 


00001 REM * * ONE~ARMED BANDIT GAME x x 
00002 REM * BY DALE GRUNDON/11456 LINKS IIR. /RESTON? VA/22090 


00003 


REM 


00004 REM * DATA IN MATRIX SETS UF THREE SFINNING WHEELS OF THE $ 
LOT MACHINE. 


00005 


REM 


ER HAVING 


00006 


REM 


ENT VALUES 


00007 


REM 


S CHANCES 


00008 


REM 


TA LINES. 


00009 
00010 
00020 
00030 
HINE" 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 


REM 
Ag=" 
PRINT 
FRINT 


FRINT 
PRINT 
PRINT 
PRINT 
FRINT 
FRINT 
PRINT 
PRINT 
PRINT 
PRINT 


QUANITY OF LOW NUMBERS ESTABLISHES THE CHANCE OF PLAY 
WINNING COMBINATIONS THAT PAY SUFFICIENT TO WIN. PRES 
SET O00S IN FAVOR OF THE HOUSE. TO IMPROVE THE PLAYER 
INCREASE PROPORTIONALLY THE AMOUNT OF 12 AND 3 IN DA 


LINE #330 LIMITS FLAYERS WIN OR LOSS TO 100 DOLLARS. 
DOLLARS" }T=0 

TAR(15) "ONE-ARMED BANDIT GAME" 

"THE COMPUTER WILL OPERATE LIKE A ONE DOLLAR SLOT MAC 


TAB(9)"*XWINNING COMBINATIONSX" $ TAB(38) "XPAYOFFX" 
TABC11) "BAR BAR BAR" $ TAB(37) "SO" FAS 

TAB(11) "BAR BAR BELL" ¢TABRC37)"30" FAS 

TABC11) "BELL BELL BAR" + TAB( 37) "25"5A$ 

TABC11) "BELL BELL BELL" #TAB(37) "20" 5 AS 
TAB(10)"CHERRY CHERRY BELL "#TAB(37) "15 "FAS 

TAB(10) "CHERRY CHERRY CHERRY"#TAB(37)"10"3A$ 

TARCI1) "ANY COMBINED THREE"$TAB(38)"5 "FAS 

TABC9) "MATCH FIRST OR LAST TWO" TAB(38) "2" FAS 

"THE RETURN KEY IS THE ARM . . IF YOU WANT TO QUIT CA 


LL THE BOUNCER" 


00135 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
S&yGyG» 


REM x 
DIM A 
FOR B 
FOR C 
REAL 
NEXT 
DATA 
DATA 
6 


* SET MACHINE WHEELS FOR HOUSE WEIGHTED onns x x 
C1792) 9R(3) 
=0 TO 17 
=0 TO 2 
ACB:C) 
CiNEXT B 
Lylolelrev2r2e2y2y 2x39 Sr Sr Sy Sv 39 bvSr4vavay4yAvdy4yG 


BAA Arora Se Sr Se Sete tee br brbrbrbsbvbrbrGrbrde 


00210 REM * * SFACE TO INCREASE WHEEL SIZE x x 
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FROGRAM NAME? ONE ARM BANDIT/GRUNDON < CONT‘’D: = 


00225 REM X x READY TO FLAY X* xX 

00230 INFUT " INSERT YOUR DOLLAR AND PULL THE ARM “¢3T=T~-1 
00235 REM * * SPIN THE WHEELS X xX 

00240 W=O?tG=OtPRINT tPRINT ?PRINT *GOSUB 400 

00245 REM x * IS IT A WINNER X X 

00250 IF B(1)=B(2) THEN W=23GOSUB 600 

00251 REM * * FINAL CHANCE FOR A FAYOFF X* X 

00252 IF (W=0 AND B(2)=B&(3)) THEN LET W=2 

00255 REM * * TALLY MONEY X x 

00260 IF Ws0 THEN FRINT TAB(6)" PAYOFF IS"sWsAS 

00261 IF W=0 THEN FRINT TAB(13)"*YOU LOSEX" 

00270 T=T+Wi PRINT 

00275 REM * x SCOREBOARD X X 

00280 IF T=1 THEN PRINT TAB(7)"YOU’VE GOT ONE DOLLAR*:GOTO 340 
00290 IF T=0 THEN PRINT TAB(7)*YOU’RE AHEAD" # TF AS 

00300 IF T=-1 THEN FRINT TAR(7)"YOU’VE LOST ONE DOLLAR":GOTO 340 
00310 IF T<O THEN PRINT TAB(7)"*YOU’RE BEHIND" ¢ABS(T) #AS 

00320 IF T=0 THEN FRINT TAB(4)"FOR THE MOMENT, YOURE EVEN" 
00325 REM * X WIN/LOSS LIMITS * xX 

00330 IF (T#-100 OR T=100) THEN GOTO 350 

00340 PRINT ?GOTO 230 

00350 PRINT tPRINT TAB(3)"YOU HAVE GONE OVER THE HOUSE LIMITS* 
00360 PRINT TAB(10)"COME BACK TOMORROW" 

00370 END 

00400 REM x * SFIN WHEELS * xX 

00410 FRINT ¢ PRINT 

00420 FOR X=1 TO 3 

00430 LET [l=INTCASkRNDCLIOSLET E=INT(S*RNDC1)) 

00440 F=A(DvE):GOSUB 500 

00450 PRINT TAB(13)"~- "SBS" ~" 

00460 NEXT X 

00470 FRINT ?RETURN 

00500 REM * * INFUT FOR WHEEL DISPLAY AND FUTURE SCORING x xX 


00510 IF F=1 THEN B$="BAR"?BCX)=1 
00520 IF F=2 THEN B$="BELL "3 B(X)=2 
00530 IF F=3 THEN B$="CHERRY"?B(X)=3 
00540 IF F=4 THEN BS="QORANGE*+B(X)=4 
00550 IF F=5 THEN Bé="LEMON"?B(X)=5 
00560 IF F=6 THEN BS="FLUM"SB(X)=6 
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FROGRAM NAME? ONE ARM BANDIT/GRUNDON < CONT‘’O > 


00570 G=G+tF 2? RETURN 

00600 REM * X DETERMINE AMOUNT OF WINNINGS * x 
00610 IF B(2)=B8(3) THEN W=SiGOSUR 650 

00620 IF (B(1)=3 AND G=8) THEN W=Wx7.5 

00625 IF (B(1)=2 ANI) G=S) THEN W=Wx12.5 
00630 IF G=4 THEN W=Wxk15 

00640 RETURN 

00645 REM X X THREE MATCHING/WHICH THREE * x 
00650 IF B(3)=3 THEN W=Wx2 

00660 IF B(3)=2 THEN W=Wx4 

00670 IF B(3)=1 THEN W=Wx10 

004680 RETURN 
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FROGRAM NAME? OTHELLO/GRUNDON 


00010 REM OTHELLO GAME FROM ‘BYTE’ MAGAZINE OCT. 77 ISSUE FAGE 60 
00011 REM WRITTEN BY RICHARD DUDA/S9O VINE ST/MENLO FARK CA 94025 
00012 REM SUBMITTED BY DALE GRUNDON INCLUDE MODIFICATIONS TO RUN 
00013 REM WITH EXT. B.H. BASIC ON AN H-8/H-9 SYSTEM W/ 16K MEMORY 


00020 REM PLAYS THE GAME ‘OTHELLO’ WITH TWO STRATEGIES: 

00030 REM 1.TAKE MAX. NUMBER OF PIECES 

00040 REM 2.A0D A BONUS FOR OUTSIDE FOSITION 

00050 REM RBOARI IS AN ARRAY ‘A’ BOUNDED BY 0O’S (BLANKS) 

00060 REM A=0 FOR EMF TY SQUARE 

00070 REM A=B FOR BLACK SQUARE ~— ~- X CINTERNALLY ~1) 

00080 REM A=W FOR WHITE SQUARE ~ ~ 0 CINTERNALLY +1) 

00090 REM I AND J ALWAYS USED FOR ROW/COLUMN INDICES 

00100 REM I4 AND J4 STORE INCREMENTS TO THE 8 NEIGHBORS 

00110 REM C$ AND DS STORE CHARACTERS A-HyX» « »0 FOR OUTPUT 

00120 DIM ACP)» T4(8)»9 J4(8)» C#(Bdr DS¢2) 

00130 REM INITIAL GREETING 

00140 FRINT “GREETINGS FROM OTHELLO* 

00150 PRINT "DO YOU WANT INSTRUCTIONS (Y OR N)"s 

00160 LINE INFUT #X$ 

00170 IF X$="N" THEN 380 

00180 IF X#<> "Y" THEN 160 

00190 FRINT 

00200 PRINT "OTHELLO IS PLAYED ON AN 8 X 8 CHECKER BOARDy ROWS AR 

E NUMBERED » * 

00210 FRINT "1 TO 8 AND COLUMNS A TO H. THE INITIAL CONFIGURATION 
IS ALL BLANK» * 

00220 PRINT "EXCEPT THE CENTER FOUR SQUARES WHICH FORM THE FATTE 


RN?" 
00230 PRINT * Oo x" 
00240 PRINT " xX O° 


00280 FRINT "TRY TO PLACE YOUR FIECE SO THAT IT “OUTFLANKS’ MINE? 
CREATING A* 

00290 PRINT "HORIZONTAL» VERTICAL OR DIAGONAL RUN OF MY FIECES BO 

UNDED AT EACH" 

00300 PRINT "END! BY AT LEAST ONE OF YOURS. THIS WILL FLIP MY PIEC 

ES»* 

00310 FRINT “TURNING THEM INTO YOURS. X*NOTE? YOU MUST CAPTURE AT 
LEAST ONE OF" 

00320 FRINT "MY FIECES IN THIS WAY IF AT ALL FOSSIBLE. IF IT IS N 

OT POSSIBLE,» " 
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PROGRAM NAME? OTHELLO/GRUNDION 


00330 


PRINT “YOU FORFEIT YOUR TURN BY ENTERING 00 FOR YOUR ROWsC 


OL. MOVE." 


00370 
00380 
00400 
00410 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00370 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
006480 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00740 
00770 
00780 


PRINT 

REM INITIALIZE 

F2=0 

L=1 

FRINT “SHOULD I PLAY MY BEST STRATEGY (Y OR N)D"3 
$2= 

LINE INFUT +X# 

IF X#= "N" THEN 520 

IF X#<> "Y" THEN 480 
$2=2 

BR=~-1 

W=1 

Vé¢B+1 >= "x" 
D$(Of1>=","* 

UVé(Wti>= "O° 

FOR K=1 TO 8 

READ T4¢k) 

NEXT K 

TATA Ov-Ly-Le~LrOvleivi 
FOR K= 1 TO 8 

REAL J4 cK) 

NEXT K 

DATA LlelsOr-Ly—le-1:O%l 
FOR K= 1 TO 8 

READ C#(K) 

NEXT K 

DATA "A“y"Bte"C* eo "Te "Ete "Fig "Gt y "HH" 
REM SET UF NEW GAME 
FOR I= 0 TO 9 

FOR J= 0 TO 9 
ACI+sJ)=0 

NEXT J 

NEXT I 

AC424)=W 

ACS*sSd=W 

AC4r5)=8 

ACS*»4)=B 
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PROGRAM NAME? OTHELLO/GRUNDON < CONT‘’D > 


00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
009690 
00970 
00980 
00990 
01000 
01010 
01020 
01021 
01022 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 


Ci=2 

H1=2 

Ni=4 

Z=0 

REM HUMAN‘’S CHOISE 

FRINT "DO YOU WANT TO HAVE ’X’ OR ’0°%"% 
C=W 

H=B 

LINE INFUT #X% 


IF X$="X" THEN 920 
IF X$<>"O" THEN 870 
C=B 
H=W 


FRINT "DO YOU WANT TO GO FIRST ¢(Y OR N)°% 


LINE INFUT +X 

IF X$="N" THEN 1020 

IF X$i> "Y" THEN 930 
REM PRINT INITIAL BOARD 
GOSUB 3100 

GOTO 14690 

REM COMPUTERS MOVE 


IF F2=0 THEN 1020 

LINE INFUT #X$% 

B1l=~1 

ON L. GOSUB 3300»%33107 332073330 
L=L+1tIF Lo4 THEN L=1 

IT3=J3=0 

T1i=C 

T2=H 

REM SCAN FOR BLANK SQUARE 

FOR I=1 TO 8 

FOR J=1 TO 8 

IF ACTIyJ)<> O THEN 1380 

REM FOUND BLANK SQUARE 

REM DOES IT HAVE AN OFFONENT FOR A NEIGHBOR? 
GOSUBR 2620 

IF Fi=0 THEN 1380 

REM FOUND A OF PONENT AS A NETGHEBOR 
REM HOW MANY PIECES CAN WE FLIP? 
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PROGRAM NAME? OTHELLO/GRUNDON < CONT‘’D > 


01160 
01170 
01180 
01190 
O1200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 


REM (DON’T DO IT NOW) 

U=-1¢3FRINT " 4° 

GOSUB 2820 

REM EXTRA POINTS FOR BOUNDARY FOSITION 
IF $1i=0 THEN 1380 

IF (I-1)xk(I-8) <> O THEN 1230 

$1=S1+S2 

IF (J-1)%(J-8) <> O THEN 1260 

$1=S1+S2 

REM IS THIS BETTER THAN THE BEST FOUND SO FAR? 
IF $1 <B1 THEN 1380 

IF Si >Bi THEN 1340 

REM A TIE? RANDOM DECISION 

REM THE NEXT TWO EXECUTABLE STATEMENTS CAN BE DELETED 
REM FOR A VERSION OF BASIS WITH OUT RANDOM NUMBERS 
R=RNIC 1) 

IF R>.5 THEN 1380 

REM YES 

B1=S1 

I3=I 

J3=J 

REM END OF SCAN LOOF 

NEXT J 

NEXT I 

REM COULT WE DO ANYTHING? 

IF Bi>0 THEN 1480 

REM NO 

PRINT "I HAVE TO FORFEIT MY MOVE" 

IF Z=1 THEN 2190 

Z=1 

GOTO 1690 

REM MAKE THE MOVE 

Z=O3PRINT " ." 

FRINT "I WILL MOVE TO ROW "3 

PRINT 133 

FRINT "» COLUMN "3 

PRINT C#¢(J3) 

I=I3 

J=J3 
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PROGRAM NAME? OTHELLO/GRUNDON < CONT‘’D > 


01550 U=1 

015460 GOSUB 2820 

01570 C1=C1+S1t1 

01580 H1=H1~S1 

01590 Ni=N1i+t1 

01600 FRINT "THAT GIVES ME “3 

01610 PRINT S13 

01620 FRINT 

01630 REM FRINT OUT BOARD 

01640 GOSUB 3100 

01650 REM TEST FOR END OF GAME 

01660 IF Hi=0 THEN 2190 

01670 IF N1=64 THEN 2190 

01680 REM HUMAN’S MOVE 

014690 T1=H 

01700 T2=C 

01710 INFUT "YOUR MOVE ~- ROW "oI 

01720 FRINT SPC(8)s¢iLINE INPUT "COLUMN "¢X$% 
01730 IF I20O THEN 1710 

01740 IF I>8 THEN 1710 

01750 IF Ii>0 THEN 1820 

017460 PRINT “ARE YOU FORFEITING YOUR TURN (Y OR N)“$ 
01770 LINE INPUT #X#% 

01780 IF X#<> "Y¥" THEN 1710 

01790 IF Z=1 THEN 2190 

01800 Z=1 

01810 GOTO 1000 

01820 FOR J= 1 TO 8 

01830 IF C#(J)=X$ THEN 1870 

01840 NEXT J 

01850 GOTO 1710 

01860 REM CHECK IF BLANK 

01870 IF ACI»J>)= O THEN 1910 

01880 FRINT "SORRY» THAT SQUARE IS OCCUPIED: TRY AGAIN" 
01890 GOSUB 3100:GOTO 1710 

01900 REM CHECK FOR LEGAL NEIGHBOR 

01910 GOSUB 2420 

01920 IF Fil=1 THEN 1970 

01930 PRINT "SORRY* YOU ARE NOT NEXT TO ONE OF MY PIECES$" 
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PROGRAM NAME? OTHELLO/GRUNDON =< CONT‘’D > 


01940 FRINT "TRY AGAIN" 

01950 GOSUB 3100:GOTO 1710 

01940 REM CHECK IF LEGAL RUN 
01970 U=-1 

01980 GOSUR 2820 

01990 IF Si> 0 THEN 2030 

02000 PRINT "SORRY: THAT DOESN’T FLANK A ROWS TRY AGAIN" 
02010 GOSUB 3100:GOTO 1710 

02020 REM EVERYTHING LEGAL’ MAKE HUMAN’S MOVE 
02030 Z=0 

02040 FRINT “THAT GIVES YOU °3 
02050 FRINT S13 

02060 FRINT "OF MY PIECES" 

02070 U=1 

02080 GOSUB 2820 

02090 H1=H1+Sitl 

02100 Ci=C1-S1 

O2110 NI=Nit1 

02120 REM PRINT OUT BOARD 

02130 GOSUB 3100 

02140 REM TEST FOR END OF GAME 
02150 IF Ci=0 THEN 2190 

02160 IF N1=64 THEN 2190 

02170 GOTO 1000 

02180 REM END OF GAME WRAFUP 
02190 FRINT 

02200 FRINT "YOU HAVE "35 

02210 FRINT H1+? 

02220 PRINT "PIECES AND I HAVE "3 
02230 PRINT C135 

02240 PRINT "PIECES - - * 

02250 IF H1=C1 THEN 2290 

02260 IF Hi>C1 THEN 2310 

02270 FRINT "SORRYr I WON THAT ONE." 
02280 GOTO 2320 

02290 FRINT "A TIE ! !" 

02300 GOTO 2500 

02310 FRINT "YOU WON !* 

02320 C1=C1-H1 
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FROGRAM NAME? OTHELLO/GRUNDON < CONT‘D > 


02330 IF Ci>0 THEN 2350 

02340 C1=-Cl1 

02350 C1=(64xC1)/N1 

023460 FRINT "THAT WAS A$ 

02370 IF C1211 THEN 2490 

02380 IF Cis25 THEN 2470 

02390 IF C1239 THEN 2450 

02400 IF C153 THEN 2430 

02410 FRINT “ THAT WAS A PERFECT GAME" 
02420 GOTO 2500 

02430 FRINT " WALK-A-WAY® 

02440 GOTO 2500 

02450 FRINT *° FIGHT" 

02460 GOTO 2500 

02470 PRINT " HOT GAME" 

02480 GOTO 2500 

02490 FRINT * SQUEEKER" 

02500 FRINT 

02510 PRINT "DO YOU WANT TO PLAY ANOTHER GAME CY OR N)D"S 
02520 LINE INPUT #X$% 

02530 IF X$="Y" THEN 700 

02540 IF X$<>"N" THEN 2520 

02550 FRINT "THANKS FOR PLAYING" 

02540 STOP 

02570 REM 

02580 REM SUBROUTINE TEST FOR PROFER NEIGHBOR 
02590 REM ASSUMES? 

02600 REM I+rJ LOCATES A BLANK SQUARE 
02610 REM YOU HOPE TO SEE AN ADJACENT T2 (= ~T1) 
02620 FOR [1i=-1 TO 1 

02630 FOR Ji= -1 TO 1 

02640 IF ACItI1irsJtJ1)= T2 THEN 2710 
02650 NEXT J1 

02660 NEXT Ii 

02670 REM NO T2 FOUND? FAILURE 

02680 F1=0 

02690 RETURN 

02700 REM SUCCESS 

02710 F1i=1 
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PROGRAM NAME? OTHELLO/GRUNDON < CONT‘D > 


02720 
02730 
02740 
02750 
02760 
02770 
02780 
02790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
02870 
02880 
02890 
02900 
02910 
02920 
02930 
02940 
02950 
02960 
02970 
02980 
02990 
03000 
03010 
03020 
03030 
03040 
03050 
03060 
03070 
03080 
03090 
03100 


RETURN 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


$1=0 


FOR 


SUBROUTINE SCORE ANID UP DATE 

ASSUME} 

(IvyJ) IS A TENTATIVE PLACE FOR J A FIECE T1 
WANT RUNS OF T2=-T1 

IF U IS TRUE (1) MARK THOSE RUNS AS T1’S 
RETURN SUM OF ALL RUNS (T2’°S ONLY) IN $1 
MAIN FROGRAM CONTAINS THE FOLLOWING ARRAYS 
142 O +1 -1i -1 OT 117 
J43 1 10 -1 -1 -10 1 


K=1 TO 8 


IS=I4(K) 


JS= 


J4CR) 


16=I+I5 
S62 I+J55 


$3=0 


IF 
REM 


$3=S3t1 

Ié=I6 + 15 

J6=J6 + JS 

IF ‘AC(IéxJ6)= T1 THEN 2970 


ACI4é2J6) <> T2 THEN 3070 
LOOF THRU THE RUN | 


IF ACI4é9J6)= 0 THEN 3070 
GOTO 2910 

$1=S1 + $3 

IF Us>1 THEN 3070 


REM 


Ié6=I 
J6=J 


FOR 


UPDATE BOARD 


Ki=0 TO S3 


ACI6xJ6) = T1 


Ié= 


I6 + 15 


J6=J6 + JS 
NEXT K1 
NEXT K 
RETURN 


REM 


SUBROUTINE FRINT BOARD 


PRINT 
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FROGRAM NAME? OTHELLO/GRUNDON « CONT’D > 


03110 FRINT * A B c Ui E F G H* 
03120 FOR I=1 TO 8 

03130 PRINT I+ 

03140 FOR J=1 TO 8 

03150 PRINT * *s 

03160 FRINT DS(ACIe Jo +105 

03170 NEXT J 

03180 FRINT 

03190 NEXT I 

03200 FRINT 

03210 RETURN 

03220 END 

03290 REM *k TIME CONSUMER COMMENTS * xX 

03300 PRINT "I’M STUDYING THE POSSIBLE MOVES . +"# TRETURN 
03310 PRINT "LOOKING FOR A GOOD SPACE . "se RETURN 
03320 PRINT "I NEED A GOOD MOVE . + "s SRETURN 

03330 FRINT "WHERE’S MY BEST MOVE . "# SRETURN 


7 
ad 
of 
7? 
7 
7 
ve 
7 
*? 
* 
oe 
. od 
7 
ad 
oo 
+? 
bad 
Sd 
7 
od 


oe 
7 
bad 
7 
7 
A ad 
7 
7 
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PROGRAM NAME! BOWLING/? 


00020 REM THIS IS A SIMULATED BOWLING GAME FOR UF TO 4 PLAYERS. Y 
OU PLAY 

00030 REM 10 FRAMES. TO ROLL THE BALL» YOU SIMPLY TYPE "RK". AFTER 
EACH 

00040 REM ROLL» THE COMPUTER WILL SHOW YOU A DIAGRAM OF THE REMAI 
NING PINS 

00050 REM ("O" MEANS THE PIN IS DOWN, "+4" MEANS IT IS STANDING) T 


00060 REM COMPUTER WILL THEN GIVE YOU A ROLL ANALYSIS? GUTTER: ST 


00070 REM SPARE, OR ERROR (ON SECOND BALL IF PINS STILL STANDING) 
00090 DATA "COME ON NOW....YOU CAN DO BETTER THAN THAT!!! CONCENT 
RATE!!!" 

00100 DATA "HAVE ANOTHER BEER TURKEY!!11°* 

00110 DATA "COME ON..-ALICE... THAT’S DISGUSTING!I!" 

00120 DATA "HOW ABOUT TAKING UF KNITTING?* 

00130 DATA "YOU’D BETTER QUIT AND GO TO THE BAR! !!* 

00140 DATA "TAKE YOUR SUN GLASSES OFF DUMMY!III* 

00150 DATA "TRY DRIVING A TRUCK OVER UMIIIE* 

00160 DATA “YOU NEED A LONG STICK!!!" 

00170 DATA "SORRY ‘BOUT THAT...«YOUR FAT GOT IN THE WAY!" 

00180 DATA "YOU JUST SMASHED ONE OF MY FAVORITE ELECTRONS! * 

00185 DATA "TRY BOWLING IN THE NUDE...IT‘’LL HELF YOU STEER !*" 
00190 DATA *9999"°205 

00200 DIM C(15)2A(100%6) 

00205 DIM L1$(4) 

00210 ; 


00230 PRINT TAB(15)"OKAYs LET’S FIRST GET AQUAINTED. * 

00240 PRINT {PRINT ¢PRINT 

00250 FRINT "D0 YOU WANT INSTRUCTIONS? CY OR N)D* 

00260 LINE INFUT ""3Z¢ 

00270 IF Z$="Y" THEN 290 

00280 IF Z$="N" THEN 380 

00290 PRINT "THE GAME OF BOWLING TAKES SKILL AND MIND. DURING THE 
GAME * 

00300 PRINT "THE COMPUTER WILL KEEF SCORE. YOU MAY COMPETE WITH" 
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FROGRAM NAME? 


00310 PRINT 
MES" 

00320 FRINT 
MEANS THE" 
00330 PRINT 
§ THE" 
00340 PRINT 
00350 PRINT 
THAN" 

00340 FRINT 
00370 FRINT 
00380 PRINT 
00390 INFUT 
00400 
00410 PRINT 
00420 FRINT 
SECOND» 
00430 


BOWLING/? < CONT‘’D > 


"OTHER PLAYERS (UF TO 4). YOU WILL BE PLAYING TEN FRA 


"ON THE FIN DIAGRAM, ‘0’ MEANS THE PIN IS DOWNy, ‘+’ 


"PIN IS STANDING. THE COMPUTER WILL SHOW YOUR SCORE A 


"GAME FROGRESSES AND AT THE END OF THE GAME." 
“YOU ARE GIVEN AN EXTRA 20 POINTS FOR STRIKES? OTHER 


"THAT? THE SCORES ARE ACTUAL PIN COUNTS." 


"OK.+++HOW MANY ARE PLAYING 7° 
eR 


DIM F1ICR) 


"SUPER, NOW I’VE GOT TO CRUNCH SOME NUMBERS..-JUST A 


FLEASE." 
FOR I=1 TO 100 


00440 FOR J=1 TO 6 

00450 ACI» J)=0 

00460 NEXT J 

00470 NEXT I 

00480 F=1 

00490 FOR F=1 TO R 

00500 M=0 

00510 B=1 

00520 M=03Q=0 

00530 FOR I=1 TO 15 

00540 C¢(I)=0 

00550 NEXT I 

00555 FOR S=1iTO 9iPRINT NEXT S 
00560 REM BALL GENERATOR 
00570 PRINT "PLAYER "3F% “© ROLL YOUR FIRST BALL." 
00580 LINE INFUT “"sAt 

00590 K=O? D=0 

00600 FOR I=1 TO 20 

00610 X=INT( (15-1) *RNDC1)41) 
00620 FOR J=1 TO 10 

00630 IF X<15xJ THEN 650 
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PROGRAM NAME? BOWLING/? < CONT’D > 


00640 
00650 
006460 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
008460 
00870 
00880 
00890 
00900 
00910 
00920 
00930 


NEXT J 
CCLSKI-X)=1 

NEXT I 

PRINT 

PRINT "PLAYER "$P5" FRAME "$F$" BALL "3B 
PRINT 

FOR I=1 TO 4 

FOR J=1TO 5-I 

K=K+1 

IF C(K)=1THEN 760 

L&=L$+"+ © 

GOTO 770 

LS=L¢+"O © 

NEXT J 

LiIS(T)=L¢ 

Lé= on 

NEXT I 

FOR I=1 TO 4 

PRINT TABCI)$Lis¢1) 

Li¢¢(I)="9" 

NEXT I 

REM ROLL ANALYSIS 

FOR I=1 TO 10 

D=D+C(1) 

NEXT I 

IF D-M<>0 THEN 930 

PRINT "GUTTER! !1tiise 

READ X$iIF X$="9999" THEN RESTORE *GOTO 910 
PRINT CHRS (7) §CHR$ (7) $CHRS(7) $CHRS(7) 

IF B=1AND D=10THEN PRINT tPF RINT TAR(25) "STRIKE ! 1! ! § "tq 


=3:GOTO 1030 


00940 
00950 
00940 
00970 
00980 
00990 
01000 
01010 


IF B=2AND D=10THEN PRINT TAB(25) "SPARE! !!!''"3Q=23G0TO 1030 
IF Be>2 AND 010 THEN 1020 


READ X$iIF X$="9999"THEN RESTORE :GOTO 990 
PRINT CHR$(7)3FAUSE SOO!PRINT CHRE(7) 
PRINT X#3PRINT 


hm 552 


PROGRAM NAME: BOWLING/? < CONT’D > 


01020 IF Be>1AND 0410 THEN 1030 

01030 REM STORAGE OF SCORES 

01040 PRINT ¢{PRINT 

01050 ACF*AF»B)=D 

01060 IF Bel THEN P1(P)=P1(P)+D3PRINT "PINS DOWN= "s0% "+.+YOUR S 
CORE="$P1¢F) 

01070 IF B&=2THEN P1(P)=P1(P)+(D-M)¢PRINT "PINS DOWN="sD%"YOUR SCO 
RE IS"sPi(P> 

01080 IF B=2 THEN 1150 

01100 B=2 

01110 M=D 

01120 IF Q=3 THEN Dl=D+10:GOTO 1030 

01130 ACFAPs3)=D-M 

01140 IF Q=OTHEN PRINT "PLAYER"#Ps "ROLL YOUR SECOND BALL." 

01145 GOTO 580 

01150 ACFXP,3)=Q 

011460 NEXT P 

01170 F=F+1 

01171 IF B=1AND D=10AND F=10THEN PRINT "X * * ROLL AGAIN! ! "SP1(P 


) 

01180 IF F<11 THEN 490 
01190 FOR P=1 TOR 

01200 FOR I=1 TO 3 

01210 FOR J=1 TO 10 

01220 NEXT J 

01230 NEXT I 

01240 NEXT F 

01250 FOR I=1 TO R 

01260 PRINT ‘aORKOOK SCORES OOK" 
01270 PRINT 

01280 FRINT “PLAYER “#1 
01290 PRINT “SCORE "#P1¢1) 
01300 FRINT 


01330 LINE INPUT ""sA% 

01340 IF At="Y"THEN CLEAR *GOTO 200 

01350 IF A$="N"THEN PRINT TAB(20)"THANKS FOR PLAYING" 
01360 END 


4 = 135 


PROGRAM NAME? 


00010 PRINT 
00030 PRINT 
00031 PRINT 
00032 FRINT 
ER“ 

00033 PRINT 


00034 PRINT 
00035 FRINT 
00036 FRINT 
KE" 

00037 FRINT 
RE» * 

00038 FRINT 
OU ARE" 
00039 PRINT 
Ke 

00040 FRINT 
00041 PRINT 
00042 FAUSE 
00043 FRINT 
00100 INFUT 
Hy¥ 


MAZE/NAIMO 


TAB(28)% "THE MAZE FROGRAM*" 


*PRINT 

"YOU WILL BE ASKED THE WIDTH ANDI) LENGTH OF THE MAZE" 
"THAT YOU WANT FRINTEL. THESE DIMENSIONS ARE THE NUMB 
"OF SQUARES WIDE AND LONG OF THE MAZE. THE HIGHER THE 
"NUMBERS GIVEN» THE MORE COMPLEX THE MAZE WILL BE." 


"SINCE THIS IS A VERY COMPLICATED PROGRAM, IT WILL TA 
"A CONSIDERABLE AMOUNT OF TIME TO COMPUTE IT. THEREFO 
"PLEASE BE PATIENT» ONCE THE MAZE HAS BEEN COMPUTED Y 


"GUARANTEED ONLY ONE FATH THROUGH IT ! ... GOOD LUC 


"SET PAPERy PRESS ‘SFACEBAR’ KEY WHEN READY." 
*PRINT 
“WHAT IS WIDTH AND LENGTH WANTED ? (EX. - 15920) "3 


00110 DIM WCHsV¥) »UCHrY) 


00120 FRINT 
00130 PRINT 
00140 PRINT 
00150 PRINT 


00160 Q=0$Z=02X=INTCRNDC1)xXH+1) 


00165 FOR I= 
IF I=X THEN 173 


00170 
00171 PRINT 
00173 PRINT 
00180 NEXT I 
00190 PRINT 


1 TO H 


".--"$3 GOTO 180 
es "> 


a s 
¢ 


00195 C=13W(Xr1)=CiC=Ct1 


00200 R=XiS=1!GOTO 260 
00210 IF R&>H THEN 240 
00215 IF St>V THEN 230 
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PROGRAM NAME: 


00220 
00230 
00240 
00250 
002460 
00265 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00334 
00338 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00405 
00410 
00415 
00420 
00430 
00440 
00450 
00440 
00470 
00480 
00485 
00490 
00500 
00519 
00520 
00530 
00540 


Ur Ge <8 >< O BK 


1:GOTO 250 
$+1:GOTO 250 


F W(RyS)=0 THEN 210 

IF R-1=0 THEN 530 

IF W(R-1rS)<20 THEN 530 
IF $-1=0 THEN 390 

IF W(RrS~1)<>0 THEN 399 
IF R=H THEN 330 

IF W(RtirS)<>0 THEN 330 
X=INTCRNDCL) 341) 

ON X GOTO 79098207860 
IF S<=V THEN 340 

IF Z=1 THEN 370 
Q=1:GOTO 350 

IF WORrSt1)<>0 THEN 370 
X=INTCRNDIDC 1) X341) 

ON X GOTO 7908207910 
X=INTCRNDC 1) k2+1) 

ON X GOTO 790»%820 

IF R=H THEN 470 

IF WC(Rt1irS)2>0 THEN 470 
IF S<>V¥ THEN 420 

IF Z=1 THEN 450 
Q=13GOTO 430 

IF W(RrSt1)2>0 THEN 450 
X=INTCRNOC 1) *34+1) 

ON X GOTO 790%8607910 
X=INTCRNDC 1) k24+1) 

ON X GOTO 79078460 

IF SV THEN 490 

IF Z=1 THEN S20 
Q=1:GOTO S00 

IF W(ReStid<20 THEN S20 
X=INTCRNDDCL) #241) 

ON X GOTO 790910 

GOTO 790 

IF S$-1=0 THEN 670 

IF W(RrS-1)<>0 THEN 670 
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Pa 


£H >< 


FROGRAM NAME? MAZE/NAIMO < CONT‘D » 


0054S 
00547 
00550 
00552 
00554 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00625 
00630 
00640 
00650 
00640 
00670 
00680 
00685 
00690 
00695 
00700 
00710 
00720 
00730 
00740 
00750 
007355 
007460 
00770 
00780 
00790 
00800 
00810 
00815 
00820 
00830 
00840 


IF R=H THEN 610 

IF WCRt1»S)<20 THEN 610 
IF S<>V THEN 560 

IF Z=1 THEN 590 
Q=1:GOTO 370 

IF WCR»St1)<20 THEN 590 
X=INTCRNOC1)*3+41) 

ON X GOTO 820%8607910 
X=INTCRNDC1)xk24+1) 

ON X GOTO 820860 

IF Si2¥ THEN 630 

IF Z=1 THEN 6460 
Q=13GOTO 640 

IF WCReSt1)<>0 THEN 660 
X=INTCRNOCL) 241) 

ON X GOTO 820%910 

GOTO 820 

IF R=H THEN 740 

IF W(R+t1S)<s0 THEN 740 
IF S*2V THEN 700 

IF Z=1 THEN 730 
Q=1:3GOTO 830 

IF WCRySt1)<20 THEN 730 
X=INTCRNDC1)*24+1) 

ON X GOTO 8407910 

GOTO 840 

IF S*2V THEN 760 

IF Z=1 THEN 780 
Q=1:GOTO 770 


IF WCReSt1)<20 THEN 780 
GOTO 910 

GOTO 1000 

WOR-19S)=C 

C=C+i i VC(R-19S)=22R=R-1 


IF C=HxXV+1 THEN 1 10 

Q=0:GOTO 260 

WCReS-1)=C 

C=Ct1 

VCReS~-1)=12S=S-1{2IF C=HxkV+1 THEN 1010 
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00850 
008460 
00870 
00875 
00880 
00890 
00900 
00905 
00910 
00920 
00930 
00940 
00950 
00955 
009460 
00970 
00975 
00980 
01000 
01010 
01011 
01012 
01013 
01020 
01021 
01030 
01040 
01041 
01043 
01045 
01050 
01051 
01052 
01060 
01070 
01071 
01072 
01073 


7 
-* 


oo 


MAZE/NAIMO 


Q=0;GOTO 260 

WCRt12S)=C 

C=C+liIF VCRrS)=0 THEN 880 
VCR»S)=33G0TO 890 

V(R9S)=2 

R=Rt1 

IF C=HxXV+1 THEN 1010 

GOTO 530 

IF Q=1 THEN 960 


WCReStid=CiC=C+1iiIF ViRyS)=0 THEN 940 


VCR»S)=33G0TO 950 

VCR» S)=1 

S*StisIF C=HxV+1 THEN 1010 
GOTO 2460 

Z=1 

IF V¢(R»S)=0 THEN 980 
V(RrS)=32Q=02GOTO 1000 


VCR»S)=1iQ=O0tR=12S=1iGOTO 250 


GOTO 210 

FOR J=1 TO V 
FRINT "I"% 
FOR I=1 TO H 
IF V¢IvJ)<2 
FRINT ° "5 
GOTO 1040 
FRINT " 
NEXT I 
PRINT 

FOR I=1 TO H 

IF V¢IvJ)=0 THEN 1040 
IF V¢IvJ)=2 THEN 1060 
PRINT "3 "$ 

GOTO 1070 

FRINT *3~-~"9 

NEXT I 

FRINT "." 

NEXT J 

END 


THEN 1030 


[*y 


> 
7 
o 
7 
2 
++ 
7 
7+ 


*? 
od 
* 
dad 
* 
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oo 


oe 


o* 


oo 


of 


+ 


+ 


+ 


oo 


+ 


* 


+ 


oe 


+ 


of 
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FROGRAM NAME? BASEBALL 7 H 11 BASIC 


2 TIM TSO) eC CLP oF C19) ep Z019) 

4 FOR X=1 TO 19\READ CCX) 9Z¢X) oF CXINNEXT X\X=1 

6 PRINT "WELCOME TO KOOY STADIUM FOR TODAY’S GAME BETWEEN" 

8 FRINT "THE H-11 BYTES AND CYOUR NAME PLEASE) THE "3 

10 INPUT T$ 

12 PRINT \FRINT "A HIGHLY FARTISAN CROWD OF "> 

14 RANDOMIZE 

16 PRINT INTC 7O0000XRNICO) ) 

18 FRINT "FANS IS ANXIOUSLY AWAITING THE START OF THE GAME." 
20 PRINT "HERE IS MY TEAM? "» "AND HERE IS YOURS: * 

22 PRINT "NAME" » “AVERAGE "» "NAME" » "AVERAGE" 

24 PRINT Sess © y Memes oy, serena Nay Bteieenseve cinnaen lh 

26 PRINT "HUISMAN"?Z(C1)9"KLOOS"sZ¢2) 

28 PRINT "HOEREN" »Z(3) + "ANDREWS "»Z¢4) 

3O FRINT "BACCUS"»9Z¢5)» "MAYER" ¥Z(6) 

32 PRINT "SMITH"»Z(7)» "HANSEN" #Z(8) 

34 PRINT "SCHNEIDER" »Z(9)» "MICHEL" »Z¢C10) 

36 FRINT "ROSENBAUM" +Z¢C11)2"FeD.PEATE" +2012) 

38 PRINT "FOULSEN"sZ¢13)9"WILL TANS "¥Z¢14) 

40 PRINT "KILGOUR*sZ¢15) "NELSON" »Z¢(16) 

42 FRINT "JOHNSON" »Z¢017) 2 "ANKORN" »Z(19>) 

44 PRINT "WHITNEY" » "MANAGER" » "IVEY" » "MANAGER "\FPRINT 

46 PRINT "PITCHER’S OFTIONS ARE? "\FRINT "FASTBALL" 

48 PRINT "“BEANBALL"\PRINT “BRUSHBACK"\FRINT “BALL "\NPRINT "CURVE" 
SO PRINT "SLIDER*\FRINT "KNUCKLE"\FPRINT "GREASERALL CILLEGAL >" 
S2 PRINT "SPITBALL (ILLEGAL) "\PRINT "CHECK "\PRINT 

54 PRINT "BATTER‘’S OF TIONS ARE? "\FRINT "BUNT"\FRINT "SWING" 

96 PRINT "HIT-AWAY"\FRINT "SACRIFICE *®\FRINT "GROUNDER*\FRINT "FLY 


38 PRINT "KILL "\NFPRINT \ERINT \F RINT 

60 PRINT "THE BYTES ARE TAKING THE FIELD. NOW AS ANDREWS OF THE" 
62 PRINT T%$" ADVANCES TO THE PLATE. PLEASE WATT AS THE COMPUTER S$ 
INGS" 

64 PRINT "OUR NATIONAL ANTHEM TO ITSELF - 2 OR 3 TIMES! JUST SING 


66 PRINT "ALONG UNTIL ASKED FOR YOUR PLAY. “\PRINT 
70 DATA +03» 4129.05 -02%. 263% 203 

72 DATA ~-02%+236%.02% 6037. 31b9-.01 

74 TATA O19. 241% -03%.029,35219-02 
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ERO 


BA 
210 
220 
230 
240 
250 
260 
270 
280 
290 


GRAM NAME? BASEBALL / H 11 BASIC <= CONT‘’D > 


DATA 402943679 .029-.029+386r-.01 
DATA OL e295 O35. O19 + 2942.02 
DATA “02945199402 9-.029.285%.02 
DATA ~-O039 2952-012 -02%+4295% 4.03 
DATA +02%.218%-.02%.02%.1399~.02 


ATA 2.039.238 %.019.03%.2319-.02 

TATA Or0%20 

NIM BC16) 

LET Z(¢0)=.5\LET Z=.5 

LET I=1 

LEY BIl=ONLET B2=O\LET B3=O\LET I1=O\LET I2=0O\LET I3=0 


LET C1=ONLET C2=O\PRINT 
IF C2“>4 THEN 160 \FRINT "THE BATTER WALKS."\GOSUB 920 \GO TO 


IF Cis*3 THEN 180 \PRINT "THE BATTER STRUCK OUT."\LET C3=C34+1 
TO 140 

IF S$i=1 THEN 180 \LET X=X+1 

IF C3<3 THEN 270 \IF S1=1 THEN 190 \LET S1=1\GO TO 200 
PRINT "AFTER" Is "INNINGS "#\LET IT=I+i\LET $1=0 

PRINT [2s "RUNSs *$L1s*HITSs"sI3e "ERRORS AND" SF BIF+B2+B35 "LEFT ON 
SE." 

IF I=S5 THEN 1420 \IF S1=0 THEN 230 \FRINT "I’M"#\GO TO 240 
IF $10 THEN 230 \PRINT "I’M"S\GO TO 240 

FRINT "YOU’RE"$ 

PRINT " UF NOW."\F RINT “SCORE? BYTES"#S25"  "$T$3S3 

FRINT \LET C3=0 

GO TO i130 

FRINT "YOUR FLAY "3 

INFUT BS 

LET 0=1xXRNDCS)\PRINT 

IF S1=0 THEN 420 

IF B¢<>"CURVE" THEN 320 \D=D4C(X)\GO TO 1280 

IF B¢<>"FASTBALL" THEN 330 \D=l4+FCX)\GO TO 1280 

IF &¢="BEANBALL" THEN 1280 

IF B¢="BRUSHBACK" THEN 1280 

IF BS="SLIDER" THEN 1280 

IF B¢="KNUCKLE" THEN 1280 

IF B¢<>"GREASEBALL" THEN 380 \IF D<.8 THEN 1280 \GO TO 1270 
IF B¢<>"SPITBALL" THEN 390 \IF [1.8 THEN 1280 \GO TO 1270 
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PROGRAM NAME? BASEBALL / H 11 BASIC = CONT‘’D = 


390 IF B¢<>"CHECK" THEN 400 \FRINT “RUNNERS ARE STICKING."\GO TO 

270 

400 IF B$<>"BALL" THEN 410 \GO TO 1300 

410 FRINT Bs" ?*\GO TO 270 

420 IF BS<>"BUNT" THEN 430 \PRINT “YOUR BATTER" \GOSUB 370 \GO TO 
140 

430 IF B$="SWING" THEN 1280 

440 IF B¢<>"CHECK" THEN 450 \FRINT "CHECK NOT YET IN-"\GO TO 270 


450 IF B&="HIT-~AWAY" THEN 1280 
460 IF B¢<="STEAL" THEN 470 \PRINT "STEAL NOT YET IN."\GO TO 270 


470 IF B$="SACRIFICE" THEN 1280 

480 IF B¢="GROUNDER" THEN 1280 

490 IF BS="FLY" THEN 1280 

500 IF B="KILL" THEN 1280 

310 GO TO 410 

520 LET A=9XRNDIDC6)\IF S1=0 THEN S30 \PRINT “MY BATTER"#\GO TO 540 


530 FRINT "YOUR BATTER"? 

540 IF Asi THEN 550 \PRINT “ LINED OUT TO THE THIRD BASEMAN. "\GO 
TO 840 

550 IF As2 THEN 5460 \FRINT * FOFFED OUT IN SHALLOW LEFT."\GO TO 8 

40 

360 IF A>3 THEN S80 

570 PRINT " GROUNDED TO THE PITCHER"#\GO TO 390 

580 IF A>4 THEN 680 \FRINT “ GROUNDED TO SHORTSTOF"» 

590 FRINT " WHO THREW QUT THE MAN"SN\IF C3=2 THEN 670 

600 IF B1=0 THEN 670 \IF B2=0 THEN 630 \IF B3=0 THEN 620 \FRINT " 
FORCED HOME." 

610 GO TO 850 

620 PRINT " FORCED TO THIRD."*\GO TO 850 

630 LET AL=INTC3XRNDCO))\PRINT ® FORCED TO SECOND"$\IF Al<>1 THEN 
650 

640 FRINT "."\GO TO 850 

650 PRINT \FRINT “AND THEN TO FIRST FOR A DOUBLE PLAY!" 

660 LET C3=C3+ti\LET BLl=O\GO TO 840 

670 FRINT " AT FIRST.«"\GO TO 840 

680 IF AzS THEN 700 \PRINT “ HIT A FLY INTO DEEP CENTER WHERE IT 
WAS "5 
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PROGRAM NAME? BASEBALL / H 11 BASIC 
| 
690 PRINT * CAUGHT."\GO TO 710 
700 IF Az6é THEN 880 \FRINT " HIT TO LEFT FIELD FOR AN OUT." 
710 IF C3=2 THEN 840 \IF Bitk2+B3=0 THEN 840 
720 PRINT "THE MAN ON"$\IF B3=1 THEN 730 \IF B2=1 THEN 750 \GO TO 
790 
730 PRINT * THIRD MALE IT HOMEs"$\GOSUR 930 \LET B3=0 
740 IF B2=0 THEN 780 
750 PRINT " SECOND"#\IF Al=0 THEN 760 \FRINT " STAYED FUT."\GO TO 
780 
760 IF Ai>1 THEN 770 \PRINT * MADE IT TO THIRD. "\LET B3=1\LET B2= 
O\NGO TO 780 
770 PRINT * WAS OUT TRYING TO TAKE THIRD. "\LET C3=C34+1\LET B2=2 
780 IF B1l<>1 THEN 840 
| 790 IF B2s>1 THEN 800 \PRINT " FIRST STUCK."\GO TO 840 
800 PRINT * ON FIRST"S\IF B2<>2 THEN 820 
ai 810 FRINT * MANE IT TO SECOND."\LET B2=1\LET B1=O\GO TO 840 
| 820 LET W=2xRNDICO)\IF Wei THEN 810 \FRINT " WAS OUT GOING."\LET C 
3=C3+t1 
830 LET B2=0 
840 LET Z(Y)#=Z¢CY)~(Z(Y)/100)\GO TO 860 
850 LET Z¢(Y)=Z¢CY)+4¢Z¢Y)/100) 
860 LET C3=C3+t1\PRINT "THAT WAS OUT NUMBER"$C3 
870 GO TO 1260 
880 IF A>7 THEN 890 \PRINT " HIT OVER THE FITCHER’S HEAL" 
885 PRINT " FOR A*#\GO TO 910 
890 IF Az8 THEN 900 \FPRINT * HIT THROUGH THE HOLE INTO RIGHT FIEL 
pe 
895 PRINT " FOR A*#\GO TO 910 
700 PRINT “ HIT INTO LEFT FIELD FOR A"$ 
910 IF Z>4k0 THEN 1210 \IF Z>3x0D THEN 1130 \IF Z>2x0) THEN 1040 
915 PRINT "* SINGLE. * 
920 IF B3=0 THEN 970 \GOSUB 930 \LET B3=O\GO TO 960 
930 IF S1=1 THEN 940 \LET S3=S3+1\GO TO 950 
940 LET S2=S2+1 
950 LET [2=I2+1\RETURN 
960 FRINT "THE MAN ON THIRD SCORED. " 
970 IF B2=0 THEN 1000 \PRINT “THE MAN ON SECOND"$\IF A=8 THEN 990 
975 PRINT " SCORED. * 
ry 
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FROGRAM NAME? BASEBALL 7 H 11 BASIC = CONT’D = 


980 GOSUB 930 \LET B2=O\GO TO 1000 
990 PRINT * WENT TO THIRD. "\LET B2=O\LET B3=1 


1000 
0 

1010 
1020 
1030 
1040 
1050 
1040 


IF Bi=0 THEN 1030 \FRINT "THE MAN ON FIRST"#\IF A>8 THEN 102 


IF C2=4 THEN 1020 \LET B1=O\GO TO 990 

FRINT © TO SECOND. "\LET B2=1 

LET B1l=1\GO TO 1240 

LET W=3XRNDCOO\IF Wed THEN 1050 \FRINT "N OFF THE WALL "> 

IF A2=1 THEN 1060 \FRINT * STAND UF"? 

PRINT " DOUBLE."\IF B3=0 THEN 1080 \FRINT "THE MAN ON THIRD 


SCORED. * 


1070 
1080 


GOSUB 930 \LET B3=0 
IF B2=0 THEN 1090 \FRINT "THE MAN ON SECOND SCORED. "\GOSUB 9 


30 \LET B2=0 


1090 
0 

1095 
1100 
1110 
1120 
1130 


IF Bi=0O THEN 1120 \PRINT "THE MAN ON FIRST"SN\IF A>S THEN 111 


FRINT " SCORED, * 

GOSUB 930 \LET B1=0\GO TO 1120 

FRINT " WENT TO THIRD. "*\LET BI=O\LET B3=1 

LET B2=1\GO TO 1240 

FRINT * TRIFLE! "\LET AS=BItB2+B3NIF A3=0O THEN 1200 \FPRINT "T 


HE MAN ON"$ 


1140 
1150 
1160 
1170 
1180 


IF B1=0 THEN 1150 \PRINT * FIRST" §\GOSUB 930 

IF B2=0 THEN 1170 \IF B1=0 THEN 1160 \PRINT “yy ANI" 

FRINT " SECOND" §\GOSUBR 930 

IF B3=0 THEN 1190 \IF BitB2=0 THEN 1180 \FRINT "» AND'S 
FRINT * THIRD" s\GOSUB 930 

FRINT " SCORED."\LET BI=O\LET B2=90 

LET B3=1\GO TO 1240 

IF B1lt+tB2+83<3 THEN 1220 \FRINT " GRANT SLAM" S 

FRINT ©" HOME RUN! !E"\FOR Al=1 TO (B1+B2+B3+1)\GOSUB 930 \NEXT 


LET BI=O\LET B2=O\LET B3=0 

IF C2=4 THEN 1260 \LET Z0Y)=Z CY) 4¢Z0Y) 7100) 

LET Ti=Tit¢i 

RETURN 

FRINT "FITCHER THROWN OUT FOR THROWING ILLEGAL FITCH. *\GO TO 


LET A=SxXRNICOINTF Ax3 THEN 1320 
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FROGRAM NAME? BASEBALL / H 11 BASIC < CONT‘D > 


1290 
1300 
1310 
1320 
1 

1325 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 


IF A>4 THEN 1300 \PRINT “INSIDE ~ "#\GO TO 1310 

FRINT "OUTSIDE - "¢ 

LET C2=C2+1\FRINT "BALL"#C2\GO TO 150 

IF Z¢(Y)<0) THEN 1340 \GOSUB 520 \IF A<6 THEN 1330 NC CY =CCY) + 


GO TO 140 

LET CCY)=CCY)-1\GO TO 140 

LET CCY=CCY)-1AN\LET B=3xRNDC7) 

IF B>1 THEN 1360 \PRINT "A SWING & A MISS - "#\GO TO 1390 
IF B22 THEN 1380 \FRINT “INSIDE CORNER ~ CALL "3 

GO TO 1390 

PRINT "FOUL! ~ “s\IF Ci=2 THEN 1400 

LET C1l=C141\FRINT * STRIKE"#C1\GO TO 150 

PRINT "COUNT STAYS AT"$C23 "BALLS AND"3C13 

PRINT "STRIKES."\GO TO i150 

PRINT "FINAL SCORE? ME"#S2s"you"#s3 

IF S2°S3 THEN 1450 \IF $3=S2 THEN 1440 \FRINT "YOU WON. *\GO 


TO 1460 


1440 
1450 
1470 


7? 
oo 


PRINT "A DRAW! "\GO TO 1460 
PRINT "I WON!" 
ENT 


+? 
*?* 
oe 
+ 
ce 
of 
*e 
7 
+ 
oe 
oe 
o 
od 
7 
+ 
+ 
+ 
7. 
7 
? 
+e 
*?* 
+ 
od 
°- 
ee 
oe 
o> 
ad 
7 
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FROGRAM NAME? BLACKJACK/H 11 BASIC 


100 RANDOMIZE 

110 FRINT "THIS DEMONSTRATION SHOWS THE VERSATILITY OF HEATH’S" 
120 PRINT "H-11 COMPUTER BY SIMULATING A GAME OF BLACKJACK, * 
130 FRINT "A ‘1’ IS YES A ’0’ IS NO» A “2% TS ONE HIT ONLYy" 
140 PRINT "A ’3’ IS FOR PAIRS." 

150 K=O\W1=0 

200 DIM DCS2) 

210 FOR A=1 TO S2 

220 LET DCA)=0 

230 NEXT A 

240 DIM Q(52) 

250 FOR A=0 TO 39 STEF 13 

260 FOR C=1 TO 13 

270 LET QCAtC)=C 

280 NEXT C 

290 NEXT A 

300 PRINT 

310 LET K=K+1 

320 FOR F=1 TO 5 

330 LET ECP)=0 

340 LET V(P)=0 

350 LET T(F)=0 

360 NEXT P 

370 LET V(3)=1 

380 PRINT 

390 FRINT "WAGER" S$ 

400 LET F=1 

410 INFUT W 

420 WC2)=W 

430 IF We=0 THEN 2465 

440 IF We=500 THEN 470 

450 PRINT "THAT’S TOO MUCH ~ HOTSE LIMIT IS $500." 
4460 GO TO 390 

470 PRINT 

480 PRINT "I SHOW 

490 GOSUB 1390 

500 IF E(1)=0 THEN 520 

510 LET V¢(4)=1 

520 LET V(S)=1 
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FROGRAM NAME? BLACKJACK/H 11 BASIC «< CONT‘’D = 


330 GOSUB 1390 

940 LET M=X 

350 LET F=2 

560 PRINT "FIRST CARD IS"y 

5370 GOSUB 1390 

380 LET G=x 

590 PRINT "NEXT CARD I[S"y» 

600 GOSUB 1390 

610 IF V¢(2)>0 THEN 870 

620 LET S=xX 

630 IF V(3)“>1 THEN 870 

640 IF TC(P)<>21 THEN 710 

650 PRINT "X*XBLACKJACKKXX* 

660 PRINT "MY HOLE CARI WAS "» 
670 LET X=M 

680 GOSUB 1730 

690 LET W1=W14+1.5%*W 

700 GO TO 2240 

710 IF V¥(4)=0 THEN 810 

720 PRINT “INSURANCE ANYONE? (TYPE 1 OR 0)°% 
730 INFUT I 

740 IF I=0 THEN 810 

750 IF Tél) #221 THEN 790 

760 LET Wi=W1tW 

770 FRINT “YOU WIN #"sWe" ON YOUR INSURANCE BET" 
780 GO TO 810 

790 LET Wil#W1-W/2 

800 PRINT “YOU LOST $"5W/23 

801 PRINT " ON YOUR INSURANCE BET ~ I DON’T HAVE BLACKJACK! " 
810 IF T¢1)#>21 THEN 870 

820 PRINT "XxXI HAVE BLACKJACKKX" 
830 FRINT "MY HOLE CARD IS “+ 
840 LET X= 

850 GOSUB 1730 

860 GO TO 2230 

870 IF T(P)=21 THEN 950 

880 IF ECP 30 THEN 930 

890 FRINT “YOU BUSTED» "3s 

900 FRINT “YOUR TOTAL IS "sTCF) 
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FROGRAM NAME? BLACKJACK/H 11 BASIC =< CONT’D > 


910 IF V(2)=1 THEN 1200 

920 GO TO 2030 

930 LET ECPO=ECP)-1 

940 LET T(P)=T(F)-10 

950 IF VC1)=2 THEN 900 

960 LET V¢C3)=VUC3)41 

970 PRINT "HIT"? 

980 INFUT V(1) 

990 IF V¢1)<>3 THEN 1310 

1000 IF V(2)>0 THEN 1290 

1010 IF V¢(3)8s2 THEN 1290 

1020 IF Q(G)=Q(S) THEN 1050 

1030 FRINT "NOW IS THAT A FAIR?" 
1040 GO TO 9370 

1050 LET V¢2)=1 

1060 IF Q(G)“>1 THEN 1080 

1070 LET V(1)=2 

1080 LET P=3 

1090 PRINT °* PLAY HAND ONE NOW" 
1100 PRINT "FIRST CARI IS"» 

1110 LET W(3)=W 

1120 LET X=G6 

1130 GOSUB 1150 

1140 GO TO 590 

1150 GOSUB 14630 

1160 GOSUB 1730 

1170 LET V(3)=1 

1180 LET T¢(FO#C 

1190 RETURN 

1200 LET P=2 

1210 LET V(2)=2 

1220 FRINT " FLAY HAND TWO NOW" 
1230 FRINT "FIRST CARD IS"»s 

1240 LET X=S 

1250 GOSUR 1150 

1260 IF Q(G)=1 THEN 1280 

1270 LET V¢(1)=0 

1280 GO TO 390 

1290 FRINT "NO SPLITS NOW ~~ TRY AGAIN" 
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PROGRAM NAME? BLACKJACK/H 11 BASIC =< CONT‘’D > 


1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
14640 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1400 
1610 
1620 
1630 
14640 
1650 
1640 
1670 
1680 


GO TO 70 

IF V(1)2¢>2 THEN 1360 
IF V(3)=2 THEN 1350 
FRINT “TOO LATE TO DOUBLE» CHARLIE." 
GO TO 970 

LET WCPO =2kW CF) 

IF V(1).>0 THEN S90 
GO TO 900 

REM DEAL 

GOSUR 1460 

LET TCPO=TCPO+C 

IF V¢(S)=0 THEN 1440 
LET V¢S)=0 

RETURN 

GOSUBR 1730 

RETURN 

LET N=1LOXCL4+ABS (COS CNEW1) > 
FOR A=1 TO N 

LET X=INTCSSXRNICY) >) 
IF X=0 THEN 1480 
NEXT A 

IF D¢X)=0 THEN 1610 
LET R=R+1 

IF R250 THEN 1460 
FOR A=1 TO S2 

IF DC A)=K THEN 1570 
DCA=0 

NEXT A 

LET R=0 

PRINT "I RESHUFFLED" 
GO TO 1460 

LET R=0 

LET [N¢X)=K 

IF Q¢X)e21 THEN 1670 
LET C=11 

LET ECPOFECP O41 
RETURN 

IF Q(X)=10 THEN 1700 
LET C=Q(X) 
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PROGRAM NAME? BLACKJACK/H 11 BASIC 


1690 
1700 
1710 
1720 
1730 
1740 
17350 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
19090 
1910 
1920 
1930 
1940 
1950 
1940 
1979 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 


RETURN 

LET C=10 

RETURN 

REM FRINT CARD 

GOSUB 1760 

GOSUBR 1910 

RETURN 

IF Q¢(X)“21 THEN 1790 
PRINT " ACE "3 
RETURN 

IF Q¢(X)>10 THEN 1820 
FRINT Q¢X)% 

RETURN 

IF Q(X)211 THEN 1850 
PRINT " JACK "3% 
RETURN 

IF Q¢(X)212 THEN 1880 
FRINT " QUEEN "> 
RETURN 

FRINT " KING "¢ 
RETURN 

REM FRINT SUIT 

IF X=39 THEN 1960 

IF X=26 THEN 1980 

IF X13 THEN 2000 
FRINT "OF SPADES" 


RETURN 

FRINT "OF CLUBS" 
RETURN 

FRINT "OF HEARTS" 
RETURN 

FRINT "OF DTAMONTDS" 
RETURN 

REM DEALER PLAYS 
LET Fe2 

PRINT "MY HOLE CARD IS "y» 
LET X=M 


GOSUB 1730 
IF T¢2)222 THEN 2100 
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= CONT‘D > 


PROGRAM NAME? BLACKJACK/H 11 BASIC < CONT‘’D = 


2080uF V(2)=0 THEN 2230 


2090 
2100 
2110 
2120 
2130 
2140 
2150 
2140 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2465 


2470 


IF T(3)>21 THEN 2230 

LET P=1 

IF T¢(1)217 THEN 2300 

IF T(1)217 THEN 2140 

IF E¢1)>0 THEN 2300 

IF T(1)221 THEN 2330 

LET P=2 

PRINT "MY TOTAL IS "sT¢1) 
IF T(P)321 THEN 2230 

IF T(1)221 THEN 2210 

IF T(1)2T(P) THEN 2230 

IF T(1)=(F) THEN 2240 

LET Wi=W1itW(F) 

GO TO 2240 

LET W1=W1-WCP) 

IF V(2)>0 THEN 2270 
GOSUBR 2390 

GO TO 310 

LET P=3 

LET V(2)=0 

GO TO 2170 

PRINT "I DRAW 

GOSUB 1390 

GO TO 2100 

IF E(1)=0 THEN 2370 

LET ECLI=EC1)—-1 

LET T¢1)=T(1)-10 

GO TO 2100 

PRINT "I BUSTEDAKK" 

GO TO 2150 

IF WisO THEN 2430 

IF Wi=0 THEN 2450 

FRINT “YOU’RE AHEAD $"5W1 
RETURN 

FRINT “YOU’RE BEHIND $"5~-W1 
RETURN 

PRINT “YOU’RE EVEN" 
RETURN 

PRINT "THANK YOU FOR FLAYING! ! 
FRINT \FRINT \PRINT 


2490END 
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FROGRAM NAME? ONE ARM BANDIT/ H 11 BASIC 


100 RANDOMIZE 

110 DIM 03) 

115 LET B=10 

120 PRINT "THIS IS A SIMULATION OF A SLOT MACHINE USING A COMPUTE 
R a 

130 PRINT "EACH TIME YOU ’FULL’ I WILL ASK YOU IF YOU WISH TO PLA 
Y AGAHN." 

140 PRINT "JUST ANSWER WITH A ’1’ FOR YES OR A ‘0’ FOR NO." 

145 PRINT "THEN PRESS THE RETURN KEY, “ 

150 PRINT "YOU HAVE $10 TO START AND THE GAME ENDS WHENEVER YOU" 
160 FRINT "ANSWER ‘0’ OR RUN OUT OF MONEY. IT COSTS ONE SILVER * 
170 FRINT "DOLLAR EACH FULL (FLACE THE COIN IN MY MEMORY BANK)." 
180 PRINT 

190 FOR B1=1 TO 3 

200 LET DCB1)=INTCRNIDNCO)K6) 41 

210 NEXT Bl 

220 FOR G1=1 TO 3 

230 IF 0¢(G1)=1 THEN 300 

240 IF 0¢G1)=2 THEN 320 

250 IF I¢G1)=3 THEN 340 

260 IF D0¢G1)=4 THEN 360 

270 IF D¢G1)=5 THEN 380 

280 IF D0¢G1)=46 THEN 400 

290 GO TO 460 

300 PRINT TAB(GI*7)5" BELL" $ 

310 GO TO 410 

320 FRINT TAB(GIX7)9" BAR"? 

330 GO TO 410 

340 FRINT TAR(G1X7) § "CHERRY" $ 

350 GO TO 410 

360 PRINT TAB(CG1I*7) 5 "APPLE" § 

370 GO TO 410 

380 PRINT TAB(G1X7)5"LEMON' + 

390 GO TO 410 

400 FRINT TAB(CGI*7) 95" $"5 

410 NEXT Gl 

420 PRINT TAB(28)35 

430 IF D¢1)<2002) THEN 460 

440 IF 0¢2)=0¢03) THEN S50 
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FROGRAM NAME? ONE ARM BANDITS H 11 BASIC = CONT’D > 


450 IF [1)=0(2) THEN 480 

460 IF [¢1)<>003) THEN 510 

470 GO TO 530 

480 IF [C40 /22>INT(OC1)/2) THEN 530 

490 LET B=B+S\PRINT “KENO.-YOU WIN $5.-TOTAL=$" Ry 
300 GO TO 570 


510 LET B=B-i\FRINT "YOU HAVE LOST $1 -~ TOTAL=%$"3B¢% 
320 GO TO 570 
530 LET B=B+i\PRINT “YOU HAVE WON $1 ~~~ TOTAL=$" By? 


540 GO TO 570 
550 LET B=B+20\PRINT CHRS(7)3 "JACKPOT. «+$20.+.TOTAL=$" 5 Be CHRS (7) ¢ 


360 GO TO 5370 

570 IF B=S50 THEN 600 \IF B>0 THEN 4630 

580 FRINT \PRINT "OHy YOU’RE BROKE...+SORRY» BUT YOU’LL HAVE TO M 
OVE" 

590 FRINT "ON. *"\FRINT 

395 STOP 

600 PRINT \PRINT “WOW-~---~ YOU’VE BROKEN THE BANK ON THIS MACHINE 


610 PRINT "CONGRATULATIONS! SEE YOU AROUND. * 

620 STOF 

630 PRINT " AGAIN'S 

640 INPUT ANF RINT \IF A=1 THEN 180 \IF Av>0 THEN 640 

650 FRINT "IT’S BEEN NICE OPERATING FOR YOU COME BACK SOON!" 
670 ENT 


oo 
-?e 
Sad 
Sd 
ad 
Sad 
Ad 
oe 
7 
+? 
rd 
Sd 
oo 
of 
oe 
oF 
oe 
°° 
+e 
oe 
e 
oF 
+ 
ad 
oe 
+e 
oe 
+ 
oad 
~~ 
+ 
oe 


+ 


FROGRAM NAME? TRAF/H 11 BASIC 


3 RANDOMIZE 


10 
20 


320 
330 
340 
350 
390 
400 
410 

42 


G=6 
N=100 
FRINT " 
INPUT Z 
IF Z$2> 
PRINT * 
PRINT * 
FRINT 


2 FRINT 


PRINT 
PRINT 
PRINT 
FRINT 
FRINT 
PRINT 
FRINT 
X=INT¢ 
FOR Q= 
PRINT 
INFUT 
IF A> 
IF X=A 
IF Avis 
GOSUB 
IF A»xX 
IF X= 
IF XA 
FRINT 
GO TO 
FRINT 
GO TO 
FRINT 
FRINT 
FRINT 
GO TO 
RETURN 
FRINT 
PRINT 
QO FRINT 


WANT INSTRUCTIONS ?* 
$ 
"YES" THEN 180 
I AM THINKING OF A NUMBER BETWEEN 1 ANDI" 3N 
TRY TO GUESS MY NUMBER. ON EACH GUESS»" 
"YOU ARE TO ENTER TWO NUMBERS SEFARATED RY" 
"A COMMAr TRYING TO TRAP MY NUMBER BETWEEN" 
"THE TWO NUMBERS. I WILL TELL You IF You" | 
"HAVE TRAFFED MY NUMBER» IF MY NUMBER IS* 
"LARGER THAN YOUR TWO NUMBERS» OR IF MY" 
"NUMBER IS SMALLER THAN YOUR TWO NUMBERS." 
“IF YOU WANT TO GUESS ONE SINGLE NUMBER, TYPE" 
"YOUR GUESS FOR BOTH YOUR TRAF NUMBERS," w 
"YOU GET"sGs"GUESSES TO GET MY NUMBER." | 
NXRNIICQO) 44 
1 TO G 
"GUESS #"°3Q3 
Ayk 
B THEN 240 
THEN 400 
B THEN 260 
330 
THEN 270 
B&B THEN 320 
THEN 300 
"MY NUMBER IS LARGER THAN YOUR TRAF NUMBERS." 
330 
"MY NUMBER IS SMALLER THAN YOUR TRAF NUMBERS." 
330 
"YOU HAVE TRAFFED MY NUMBER. " 
\NEXT Q 
“SORRY» THAT’S"$G3 "GUESSES. NUMBER WAS"sX 
410 


"YOU GOT ITtii" 


"TRY AGAIN." 


440 GOTO 180\END 
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FROGRAM NAME? THE GAME OF GOLF/ H 11 BASIC 


90 Y=1 

100 RANDOMIZE 

110 DIM X(20)7AC18) eFP C18) »MC 4918) 

115 FOR I=1 TO 9Y\READ RCT) yRICLTNNEXT I 

120 PRINT "LO YOU WANT DIRECTIONS (YES OR NO)" 

130 INPUT Z$\PRINT \IF Z$="NO" THEN 300 

140 IF Z$<>"YES" THEN 120 

160 PRINT "DIRECTIONS FOR GOLF* 

170 FRINT \FRINT “YOU HAVE A CHOICE OF NINE CLUBS" 

190 FRINT “WHEN THE COMFUTER TELLS YOU TO CHOSE YOUR CLUB, PICK: " 


200 PRINT * ‘Ii’ FOR 
210 FRINT "’3W’ FOR 
220 PRINT "‘’31I’% FOR 
230 PRINT "’SI’ FOR 
240 PRINT "’71I’ FOR 
250 FRINT "’8I’% FOR 
260 PRINT "’9I’° FOR 


DRIVER RANGE OF 180 TO 270 YARDS" 

3 WOOD RANGE OF 160 TO 240 YARDS" 

3 IRON RANGE OF 150 TO 220 YARDS" 

S IRON RANGE OF 130 TO 180 YARDS" 

7 IRON RANGE OF 100 TO 140 YARDS" 

8 IRON RANGE OF 60 TO 100 YARDS" 

9 IRON RANGE OF 30 TO 70 YARDS" 

270 FRINT " ‘’W’ FOR WENGE RANGE OF 1 TO 30 YARDS" 

280 PRINT " ’F’ FOR FUTTER USE WHEN ON THE GREEN" 

300 PRINT \FRINT "HOW MANY PLAYERS ARE PLAYING TODAY "s\INFUT U\F 
RINT 

310 IF U<S THEN 330 \FPRINT “ONLY FOUR ARE ALLOWED TO FLAY AT ONE 
TIME!" 

320 GO TO 300 

330 FRINT "NAME OF FLAYER #"sYs\INFUT N#CY)NY=Y4INIF Ye=U THEN 33 


>DPrrprrpppTyYPyD 


34O DATA 9Oxv18O0r80r160r 701502 SO r L301 4071002402602 40x 30x 2991 vdeo 
BIO DATA 3607425852 S400 41S Sv Al v4 37524 vy 219 9 Sv 39S 49 GS095 
340 DATA 33024761095 44094718073 24209 4959S Se 19S 5x 450149 37094 
400 FOR R=1 TO 18\REA0 ACRI\READ FPCRDNNEXT R 

450 FRINT “GO YOU WANT TO FLAY 9 OR 18 HOLES "#N\INFUT V 

455 IF V=9 THEN 460 \IF Veri8 THEN 450 

460 FRINT \FOR J=1 TO V\FOR Q=1 TO UNH=ACJ) 

470 PRINT "HOLE" J3"IS"sHs "YARNS. PAR IS"*sFCJI\K=O\T=ONT2=0 
S40 PRINT N#(Q)¢"» CHOOSE YOUR CLUB “#\INFUT X$\GOSUB 1500 

560 IF X=9 THEN 880 

570 KeK+t1 

S590 X(X)=INTCR OXI KRNOCLI+R1 0X2) 
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FROGRAM NAME? THE GAME OF GOLF/ H 11 BASIC =< CONT‘’D > 


600 IF X*>9 THEN 610 \FPRINT X¢CX)¢"FUTTS"\M( Qs J =KtX(9)4T#+T2N\G0 TO 
1000 

610 D=XNIF He>X(D) THEN 630 

620 IF Ke>1 THEN 625 \FPRINT "HOLE IN ONE!!!" 

625 MCQyJ=KtT+T2\PRINT "YOU SUNK THE SHOT! "\GO TO 1000 

630 FRINT "DISTANCE OF SHOT I[S"sX(0) "YARDS" 

640 L=INTC25XRNDICLIONIF Les2060 TO 760 

670 FRINT "IN TRAP "\C=ABSCH~X (DD) O\L8=INTCRNDCLOKS41)\IF L8=1 THEN 
850 

700 T2=O\FOR Z=1 TO LENT2=T2tl 

730 PRINT "CHOOSE YOUR CLUB "SNINFUT X$\GOSUB 1500 \IF Z=L8 THEN 

850 

740 PRINT "STILL IN TRAP"\NEXT Z\GO TO 850 

760 IF Le>S THEN 800 \NFRINT "IN ROUGH"\C=ABSCH-X(IDO\GO TO 850 

B00 IF L#>10 THEN 830 

810 PRINT "IN WATER"\T=T+1\FRINT "YOU LOSE 1 STROKE"\C#ABRS(H-X(D) 
INGO TO 850 

830 C=ABSCH-X(D)NIF C230 THEN 930 

850 FRINT "DISTANCE REMAINING TO FIN IS"sCs"YARDS"\H=C\GO TO 540 


880 FRINT "YOU ARE NOT ON THE GREEN."\GO TO S40 

930 PRINT N#(Q)%" YOU ARE ON THE GREEN. CHOOSE YOUR CLUB. "¢ 
940 INFUT X$\IF X$<>"F" THEN 1200 \GOSUB 1500 \GO TO 590 

1000 PRINT M(QsJ)s "STROKES FOR HOLE"¢ Je "FOR "sNn#(Q) 

1010 NEXT QNFRINT \NEXT J 

1030 FOR W=1 TO V\FOR B=1 TO 4\NCB)=MCBeW)tNCBO\NEXT B 

1040 E=FCW)+tENNEXT W 

1100 FOR S=1 TO UNPRINT N#$(S)%" SHOT"SNCS) "FOR" #3 "HOLES "3 
1110 PRINT *. PAR IS"#ENNEXT § 

1120 GO TO 2000 

1200 FRINT \FPRINT "A “"sX$5"% ON THE GREEN ? IDTOT!!!"\FRINT 
1210 GO TO 930 

1500 IF X¢<>"0" THEN 1505 \X=1\RETURN 

1505 [F X#<>"3W" THEN 1510 \X=2\RETURN 

1510 IF X$<>"3I" THEN 1515 \X=3\RETURN 

1515 IF X¢<>"SI" THEN 1520 \X=4\RETURN 

1520 IF X$<>"7I" THEN 1525 \X=S\RETURN 

1525 IF X$<>"8I" THEN 1530 \X=6\RETURN 

1530 IF X¢<>"9I" THEN 1535 \X=7\RETURN 
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FROGRAM NAME: 


1535 
1540 
2000 


IF X$en"wW" 
IF X$<o"P 


THE GAME OF GOLF/ H 11 BASIC 


THEN 
THEN 


1540 \X=8\RETURN 


540 \X=9\RE TURN 


a 155 


> CONT‘ & 


<, 


= 


FROGRAM NAME? LUNAR LANDER/ H 11 BASIC 


REM LULAN 

PRINT \FRINT \PRINT TAB(23)5 "LUNAR LANDING" 

FRINT 

FRINT "WOULD YOU LIKE A DESCRIPTION OF LULAN CY OR NDP" 

INFUT Z#\IF Z$=CHR$(78) THEN 100 NIF Z$<>CHR$(89) THEN 6 

10 PRINT \FRINT \FRINT “YOU ARE IN AN AFOLLO LUNAR MODULE THAT"» 
11 FRINT " WEIGHS 14/000 LBS AND IS" 

13 PRINT “CARRYING 18000 LBS OF FUEL. THE MODULE IS IN A CIRCUL 
AR" § 

14 FRINT " ORBIT" 

16 FRINT "LOCATED IN THE MOON’S EQUATORIAL FLANE AT AN ALTITUDE O 
Fy 

17 FRINT " 68 MILES." 

19 FRINT "YOUR TARGET LIES AHEAD ON THE LUNAR EQUATOR A GROUND" 
20 FRINT " DISTANCE OF 7460"°\FRINT "MILES." 

22 FRINT \FRINT "THE X VARIABLE WILL REPRESENT THE GROUND DISTANC 
Ee" § 

23 FRINT " TO YOUR TARGET" 

25 PRINT "FROM A POINT DIRECTLY BELOW YOU ON THE LUNAR SURFACE, * 


4 


y 

26 FRINT "MEASURED" 

28 PRINT "FOSITIVELY TOWARD YOUR INITIAL FOSITION. THE Y "$ 

2? PRINT "VARTABLE WILL" 

31 FRINT "REFRESENT YOUR ALTITUDE. THE X VELOCITY IS YOUR "+s 

32 FRINT "GROUND VELOCITY" 

34 FRINT “MEASURED FOSITIVELY IN YOUR INITIAL DIRECTIONy AND "3% 
3S PRINT "THE Y VELOCITY" 

37 PRINT "IS YOUR RATE OF DESCENT." 

39 PRINT \FRINT “THE VARIABLES AT YOUR CONTROL ARE THRUST, ANGLE 


Soa prs o 


40 FRINT " THRUST)» ANI" 

42 FRINT "TIME (CQURATION OF THRUST). THE THRUST CAN TAKE ON “¥% 
43 PRINT "ONLY CERTAIN" 

45 FRINT "RESTRICTED VALUES AS IN THE CASE OF THE REAL AFOLLO XI" 


46 FRINT " LUNAR" 

48 PRINT "MONULE. THESE VALUES ARE? ZERO» 1000 THRU 6000 OR “3 
49 PRINT "107000 LES." 

S11 FRINT "THE ANGLE CAN BE SET AT ANY ANGLE FROM 0 TO 360 DEGREES 


+ z 
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FROGRAM NAME? LUNAR LANDER/ H 11 BASIC 


PRINT 
PRINT 
vo FRINT 
v7 PRINT 
"3 

38 PRINT 
60 PRINT 
ST"s 

61 PRINT 
63 PRINT 
N"3 

64 PRINT 
66 PRINT 
RVAL "3 
67 PRINT 
69 PRINT 
Ne"? 

70 PRINT 
72 FRINT 


"9 


73 FRINT 
735 FRINT 
76 PRINT 
78 PRINT 
80 FRINT 
ANT "3 
81 FRINT 
83 FRINT 
85 FRINT 
ONG" $ 

86 FRINT 
88 PRINT 
Te" 

89 FRINT 
90 PRINT 
, 


Ch Oh 
fit fo 


91 PRINT 
92 PRINT 


93 PRINT 


*" A ZERO" 
"ANGLE REPRESENTS A TANGENTIAL THRUST IN THE INITIAL "3 
"BACKWARD " 
"QIRECTION WHILE A 90 DEGREE ANGLE REFRESENTS AN UFWART 


"THRUST. * 
"THE TIME VARTABLE SETS THE LENGTH OF TIME THAT THE THRU 


" IS TO BE" 


"MAINTAINED BY THE ROCKET ENGINE. NEW VALUES OF FOSTITIO 


" ANI" 
"VELOCITY ARE CALCULATED AS OF THE END OF THIS TIME INTE 


*" ANI" 
"LISTED FOR YOU TO DECIDE ON FURTHER GUIDANCE INFORMATIO 


" THE" 
"AMOUNT OF FUEL REMAINING IS ALSO LISTED AS A FACTOR FOR 


"CONSIDERATION. * 

"THE MODULE CONSUMES FUEL AT A RATE OF ONE POUND PER "+ 
"SECONDT PER“ 

"283.74 LBS OF THRUST.“ 

\PRINT "IF YOU SET THE TIME TO ~1 THE PROGRAM WILL ABORT 


"RESET TO ITS" 
"INITIAL CONDITIONS." 
\PRINT “IF A CRASH OCCURS: THE EVENT WILL BE RECORDED AL 


" WITH DATA ON" 
"SPEED ANDI) DISTANCE FROM THE TARGET AT THE TIME OF IMFAC 


" IF YOU" 
"RUN OUT OF FUEL» THIS WILL BE RECORDED AFTER WHICH YOU" 


" MAY" 
"EITHER CRASH OR GO INTO ORBIT WITH NO VAVIGATING FOWER. 


"THE MODULE" 
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FRO 


94 
AR" 
95 
96 
, 
97 
98 
3 
99 
100 
110 
120 
130 
1490 
150 
140 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


GRAM NAME? LUNAR LANDER/ H 11 BASIC = CONT’DO = 


PRINT "IS CONSIDERED TO BE LANDED SAFELY IF IT REACHES THE LUN 


a 
y 


FRINT " SURFACE" 


PRINT “WITH A SPEED LESS THAN 3 FT/SEC. THE LANDING MUST BE * 


PRINT "WITHIN" 


FRINT "100 FT OF THE TARGET BEFORE THE MISSION IS CONSIDERED ° 


FRINT "SUCCESSFUL. "*\FRINT \F RINT 


IF Ti=0 THEN 150 

FRINT 

PRINT 

FRINT TABC31)¢5"NEW START" 
IF T1<0 THEN 170 


“HAPPY LANDING! "\FRINT \PRINT 


PRINT TARC25)¢"LUNAR LANDING MISSION" 


LET O=90 

LET G=3.438*10"(-8) 

LET M=5.058xK10°21 

LET R#5-702k10°6 

LET T2=10 

FRINT 

PRINT 

LET X=4k10°6 

LET Y=3.6K10°S 

LET Vil=SQR(GKM/ (REY) XR ¢ 
LET F#18000 

LET Y2=0 

FRINT * X"y" ys 
FRINT " CEE? 9 cPry* 
FRINT 

IF Y21000 THEN 350 


R+Y) 


A VEL*s* Y¥ VEL*y* FUEL" 
¢* FT/SEC) *s* CFT SEC) *»" (LBD 


PRINT INTCLOKX+.5)/10r INT CLOKY+.5)/107 INT CLOKVI4.5)/10% 


PRINT INTCLOKV2+,.5)/102/INTCF+.5) 


GO TO 360 


PRINT INTCX++S) 2 INTCV+.5) os INTCVIt. 5S) es INT(V24.5) 2s INTC F+.5) 


FRINT 
IF F#.0O1 THEN 820 
PRINT "THRUST(LE) "¢ 


#= 156 


FROGRAM NAME? LUNAR LANDER/ H 11 BASIC <= CONT‘’D > 


390 
395 
400 
410 
420 
430 
440 
450 
4&0 
470 
480 
490 
500 
510 
520 
530 
540 
S50 
540 
870 
580 
590 
600 
610 
620 
530 
640 
450 
640 
470 
680 
490 
700 
710 
720 
730 
740 
750 
760 


INFUT T 
IF T=0 THEN 420 

FRINT "ANGLE (DEG) "# 

INFUT A 

FRINT "TIME(SEC) "9 

INFUT T1 

PRINT 

IF T10 THEN 110 

IF Ti=O0 THEN 310 

LET A=AX3.14159/180 

IF T=0 THEN 560 

IF T<1000 THEN 520 

IF T#=6000 THEN 540 

IF T=10000 THEN 540 

FRINT "THRUST OUT OF RANGE" 
GO TO 380 

IF F~TXT1/283.74>=0 THEN 560 
LET T1=283.74xF/T 

LET N=INT(TL/T2) 

LET T3=T2 

IF N=O0 THEN 620 

FOR J=1 TO N 

GOSUB 670 

NEXT J 

IF Q=1 THEN 990 

LET T3=T1I-NkT2 

IF T3=0 THEN 310 

GOSUB 670 

GO TO 310 

LET F1=TkT3/283.74 

LET AQ#32.18XT/(140004F) 
LET A1=AOKCOS(A)XR/(RtY) 
LET A1=A1~2kV1*V2/ (R+Y) 

LET A2=AOXSIN(A)-GXM/ (REY) °24(R+Y)X(V1/R) 72 
LET X=X-VIKT3+ALKT372/2 
LET Vi=V1-ALKT3 

LET Y#Y-V2XT3+A24T372/2 
LET V2=V2-A2xT3 

LET F=F-F1 
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FROGRAM NAME? LUNAR LANDER/ H 11 BASIC < CONT‘’D > 


770 IF INTCLOKY+.5)/102=0 THEN 870 

780 IF ABS(X)<3.14159XR THEN 810 

790 LET X=X-SGNCXIK2K3.14159%R 

800 PRINT “CROSSED OFFOSITE SIDE OF MOON" 

810 RETURN 

820 FRINT “OUT OF FUEL" 

830 LET T=0 

840 LET O=1 

850 LET T1=3.14159kR/ABS (V1) 

860 GO TO 540 

870 FRINT 

880 IF SQR¢CV1L72+U2°2)>3 THEN 960 

890 IF ABS(X)>100 THEN 930 

900 PRINT "LANDED SAFELY" #ABSCINT(X+.5))¢ "FEET FROM TARGET. "+ 
910 PRINT "CONGRATULATIONS" 

920 GO TO 1000 

930 FRINT "LANDED SAFELY BUT" FABSCINT(X+.5) 9 
932 IF XO THEN 9364 

934 FRINT "FEET BEYOND THE "s\GO TO 940 

936 PRINT “FEET SHORT OF THE "“% 

940 FRINT "TARGET. MISSION UNSUCCESSFUL! * 

950 GO TO 1000 

960 FRINT "YOU CRASHED" SABSCINTCX+.5))5 "FEET "$s 
962 IF XO THEN 946 

964 FRINT "SHORT OF THE "#\GO TO 968 

9466 PRINT "BEYOND THE "$ 

948 FRINT "TARGET AT" 

970 PRINT INT(CSQRCV1"°24V2°2)+.5) 9 "FT/SEC" 

980 GO TO 1000 

990 PRINT "IN ORBIT WITH NO NAVIGATING POWER" 
1000 FRINT \PRINT 

1010 PRINT "tO YOU WISH TO FLAY AGAIN? (CY OR ND" 
1020 INFUT Z% 

1030 IF Z$=CHR$(89) THEN 100 NIF Z$<>CHR$(78) THEN 1010 
1040 PRINT "THANK YOU FOR PLAYING." 

1050 END 


FROG 


80 0D 
90 R 
110 
120 
130 
132 
133 
134 
135 
136 
137 
138 
140 
150 


2335" 


160 
170 


180 


190 
200 
210 
220 
230 
240 
250 
260 
265 
279 
280 
290 
300 
310 
315 
320 
330 
350 
360 
379 
380 


RAM NAME? HORSE RACE/ H 11 BASIC 


IM T610%10) 2UC10210) 2VC10%10) 

ANDOMIZE 

PRINT "THIS DEMONSTRATION SHOWS YOU SOME VERSATILE FEATURES" 
PRINT “OF HEATH’S H-11 COMPUTER BY SIMULATING A HORSE" 

PRINT “RACE. UF TO TEN BETS CAN BE MADE. UP TO TEN PEOPLE" 
PRINT "CAN FLAY.” 

FRINT “HOW MANY FEOFLE ARE GOING TO FLAY"NINFUT E 

IF EX>INTCE) THEN 136 \IF EExd THEN 136 \NIF E>10 THEN 136 


F=E\GO TO 137 

PRINT "NUMBER OF FEOPFLE MUST BE 1 TO 10!"\GO TO 133 
FOR X=1 TO E\PRINT “NAME OF # "sX5" PLAYER" 

INFUT ES¢(X)\NEXT X 

PRINT 

PRINT * SEVENTH RACE ~- 1 MILEy 3 YR. OLDS FOST TIME 
FRINT 

FRINT "1 MAN O’WAR 331" 

PRINT "2 CITATION 431" 

FRINT "3 WHIRLAWAY ae he 

FRINT “4 ASSAULT 8ii" 

FRINT "S SEABISCUIT 931" 

FRINT "6 GALLANT FOX 1422" 

PRINT “7 STYMIE 2031" 

FRINT "8 COALTOWN 3031" 

GOSUBR 2390 \FRINT 

E=0 

E=E+1\S=0 

LET S=S+1 

PRINT 

PRINT "BET NUMBER "“sSsE$CE) 

FRINT "ON WHAT HORSE DO YOU WISH TO BET (1-8)"%NINPUT T(S7E) 
IF T(S9E)28 THEN 490 \IF T(SvE)<1 THEN 490 

IF T(SvE)<>INT(T(S2E)) THEN 490 

PRINT "‘“WIN’s ‘“PLACE’» OR ‘SHOW’ "3 

INFUT [1% 

PRINT 

IF [="WIN" THEN 400 

IF D¢="FLACE" THEN 410 


IF fi¢="SHOW" THEN 420 


CHC USK G> < GS >4 O 4 F SK T OK WK A OK RR OX E > 


PROGRAM NAME? HORSE RACE/ H 11 BASIC < CONT’D > 


390 GO TO 320 

400 U(SrE)=1\GO TO 430 

410 U(SrE)=2\GO TO 430 

420 USE) =3 

430 PRINT "HOW MANY DOLLARS DO YOU WISH TO WAGER" S\INFUT V¢(S:E> 
440 IF V(SvE)=300 THEN 480 

450 IF Vi(SrE)*2 THEN 480 

4460 IF V(SrE)<>INT(VCSrE)) THEN 475 

470 GO TO 510 

475 PRINT "NO COINS PERMITTED..-+JUST BILLS» PLEASE! "\GO TO 430 
480 PRINT "BET MUST BE $2 OR GREATER BUT LESS THAN $300"\GO TO 43 
0 

490 PRINT "HORSE NUMBER IN ERROR (MUST BE 12732495269 720R 8)" 
200 GO TO 300 

310 IF S=10 THEN S80 \FRINT "ANYMORE BETS: "sES$(E 0 "(*YES’ OR ‘’NO’ 
dP"s 

320 INFUT [I$ 

940 PRINT 

950 IF [¢="YES" THEN 270 

960 IF U¢="NO" THEN S75 

370 GO TO 510 

975 SCE.=S\IF Ex>F THEN 265 

380 PRINT 

390 PRINT 

600 FRINT * THEY’RE OFF AND) RUNNING —-" 

610 PRINT 

620 M(0)=62.25 

630 LET M(1)=60 

640 LET M(3)=500/9 

650 LET M(2)=350/6 

660 LET M(4)=55 

670 LET M(5)=650/12 

680 LET M(6)=1100/21 

690 LET M(7)=1600/31 

700 LET O0¢(1)=6 

710 LET 0¢2)=8 

720 LET 0(3)=10 

730 LET 0¢4)=16 

740 LET O¢(5)=18 
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FROG 


750 
740 
770 
780 
790 
800 
810 
820 
830 
840 
B50 
840 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1140 
1170 


RAM NAME? HORSE RACE/ H 11 BASIC = CONT’D = 


LET 0(6)=22 
LET 0¢7)=40 
0(8)=40 
FOR N=0 TO 7 
LET HCN)=0 
NEXT N 
LET K=O 
LET G=1 
LET J=0 
LET N=3xT(1)-UC1) 
IF N20 THEN 900 
LET N=1 
FOR Z5=1 TO 2000 
IF INT(ZS/N)-Ge>0 THEN 1090 
LET H(JO=HCJO+RNIDCZ1 KM CJ) 
LET J=J+1 
LET G=Gt1 
IF J<>8 THEN 1090 
LET J=0 
GOSUB 1600 
LET D=HCB(O)-1) 
LET KeK+1 
PRINT 
IF K=8 THEN 1050 
GOSUB 2170 
GOSUB 1840 
GO TO 1090 
FRINT * FINISH" 
Z5=2000 
GOSUR 1840 
NEXT ZS 
PRINT 
FRINT 
PRINT "$2 MUTUELS FAITE" 
FRINT " STRAIGHT FLACE SHOW" 
LET K=90 
FOR I=0 TO 2 
GOSUB 1880 
LET J=I 
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FROGRAM NAME? HORSE RACE/ H 11 BASIC «= CONT‘D > 


1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1240 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1345 
1350 
1340 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1440 
1470 
1480 
1490 
L500 
1510 
1520 
1530 
1540 
1550 


1560 


IF J=0 THEN 1220 

FRINT " “7 

LET J=J-1 

GO TO 1180 

FOR J=I TO 2 

LET L=I+I+J 

IF J=0 THEN 1270 

LET R=1 

GO TO 1280 

LET R=3xJ 

LET H(Ld=1.5+.O1KINT(COCB( TI) O/RtERNDCZ1))*100) 
FRINT HCL)" "3 

NEXT J 

PRINT 

NEXT I 

PRINT 

FOR E=1 TO F\Q=0 

FOR J=1 TO S(E) 

PRINT "BET NUMBER "sJ9" "sESC(E) 

LET FP=O 

FOR I=0 TO 2 

IF BC(T)&>T¢JvE) THEN 1460 

IF UCJsE21 THEN 1510 
P=,O1LKINTCCUC Js ED KSO)KHCIFtI+UCJxE)-1)) 
PRINT “YOU COLLECT"SFs*ON "3 

GOSUBR 1880 

FRINT 

GO TO 1530 

NEXT I 

PRINT "TEAR UP YOUR TICKET ON "9 

FOR I=3 TO 7 

IF BCI)=T(JvE) THEN 1430 

NEXT I 

PRINT "NEXT TIME» FURCHASE A SHOW TICKET ON “3 
GO TO 1430 

Q=Q4F-VC Jr ED 

NEXT J 

IF Q£0 THEN 1580 

FRINT ES(E)¢"» YOUR TOTAL WINNINGS AMOUNT TO $"°3Q 
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we 


PROGRAM NAME? HORSE RACE/ H 11 BASIC < CONT‘’D > 


1570 
1580 
1585 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1840 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 


GO TO 1585 

PRINT E$(E)#"» YOUR TOTAL LOSSES AMOUNT TO 
PRINT \PRINT \GOSUB 2390 \NEXT E 
GO TO 2370 

LET Q=0 

FOR Li=0 TO 7 

LET B¢(L1)=0 

LET ACL1)=0 

NEXT Li 

FOR Li=0 TO 7 

FOR L2=0 TO 7 

IF Li=L2 THEN 1710 

IF H(L1)<2H(L2) THEN 1710 
PRINT "RERUN PLEASE" 

GO TO 2370 

IF H(L1)<H(L2) THEN 1730 
LET ACLA)=ACL1) 44 

NEXT L2 

NEXT Ld 

FOR Li=8 TO 1 STEP <1 

FOR L2=0 TO 7 

IF ACL2)<>L1 THEN 1810 
LET B(Q)=L2+1 

LET Q=Q+t1 

LET L2=8 

NEXT L2 

NEXT Li 

RETURN 

FRINT "FOS. HORSE LENGTHS BEHIND" 
PRINT 

FOR I=0 TO 7 

PRINT I+13 

IF B(I)=1 THEN 2090 

IF B(I)=2 THEN 2070 

IF B(I)=3 THEN 2050 

IF B(I)=4 THEN 2030 

IF B(I)=5 THEN 2010 

IF B(I)=46 THEN 1990 

IF B(I)=7 THEN 1970 
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$"FABS(Q) 


PROGRAM NAME’ HORSE RACE/ 


1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 


PRINT 
GO TO 
PRINT 
GO TO 
PRINT 
GO TO 
PRINT 
GO TO 
FRINT 
GO TO 
PRINT 
GO TO 
PRINT 
GO TO 
PRINT 
IF K=0 
IF I>0 
PRINT 
GO TO 


"COAL TOWN "9 
2100 
"STYMIE "3 
2100 
"GALLANT FOX"? 


2100 
"SEABISCUIT "3 
2100 

"ASSAULT "9 
2100 
"WHIRLAWAY "3s 

2100 

"CITATION "3 

2100 

"MAN O’WAR "¢ 
THEN 2160 
THEN 2140 


2150 


H 11 BASIC = 


FRINT INTCINT(OQ-HCBCT)-1)))710 


NEXT I 


FF FF. 
oD Wh 


GO TO 
PRINT 
GO TO 
PRINT 
GO TO 
PRINT 
GO TO 
FRINT 


\GOSUB 2390 


THEN 2250 
THEN 2270 
THEN 2290 
THEN 2310 
THEN 2330 
THEN 2350 


CONT’D : 


o 


. COMING DOWN THE STRETCH -"* 


2360 


. AS THEY BREAK FROM THE GATE ~-" 


2340 
. AT THE 174 
2360 


MILE POLE -* 


NEARING THE HALFWAY MARK —* 


2360 


. MIDWAY IN THE RACE ~-" 


23640 


7 AT 5/8 OF A MILE -" 
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FROGRAM NAME? HORSE RACE/ H 11 BASIC <= CONT‘’D > 


2340 
2350 
2340 
2370 
2380 
2390 
2400 
2500 


GO TO 2360 

FRINT * ROUNDING THE TURN ~* 

RETURN 

PRINT \FRINT "DO YOU WISH TO PLAY AGAIN "s\INFUT DS 


IF D¢="YES" THEN 150 NIF D¢="NO" THEN 2400 \GO TO 2370 
FOR X=1 TO SOOONNEXT X\RETURN 

FRINT \PRINT "THANK YOU FOR FLAYING! "\PRINT \FRINT \PRINT 
END 


PROGRAM NAME? CRAFS/H 11 BASIC 


90 RANDOMIZE 


100 FRINT "THIS DEMONSTRATION SIMULATES A CRAF GAME WITH THE COMP 
UTER" 

110 FRINT "AS YOUR OF FONENT. THE RULES ARE SIMPLE? * 

120 FRINT 

130 FRINT " XA 7 OR 11 ON THE FIRST ROLL WINS" 

140 FRINT " XA 2» 3 OR 12 ON THE FIRST ROLL LOSES" 

150 FRINT 

1460 FRINT "ANY OTHER NUMBER ROLLED BECOMES YOUR “FOINT’* YOU CONT 
INUE*" 

170 PRINT "TO ROLL...-IF YOU GET YOUR POINT: YOU WIN. IF YOU ROLL 
A 7s" 

180 FRINT "YOU LOSE. THE DICE CHANGE HANDS WHEN THIS HAPFENS." 
190 PRINT 

200 FRINT 

205 GOSUB 1130 

210 LET Z=SKxkINTC1LO+10XRNDICO)) 

220 FRINT “SFLENDII...-++YOU ARE GIVEN "Zs "DOLLARS TO PLAY WITH." 
230 FRINT 

240 PRINT 

250 IF INT(C2*XRNDCO)+1)21 THEN 310 

260 LET W=~1 

270 PRINT "I’LL ROLL FIRSTe+oee" 

300 GO TO 330 

310 LET W=1 

320 PRINT "YOU ROLL FIRST.+ee" 

330 FRINT 

340 PRINT 

350 LET Q=0 

3460 FRINT "HOW MUCH DO YOU BET"s 

370 INFUT B 

380 FRINT 

390 IF B=INTCB) THEN 430 

400 FRINT 

410 FRINT "NO COINS FERMITTED...JUST BILLS» PLEASE." 

420 GO TO 360 

430 IF B=0O THEN 1090 

440 IF BeZ+1 THEN 470 
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FROGRAM NAME? CRAFS/H 11 BASIC < CONT‘’D > 


450 
460 
470 
480 
490 
300 
910 
w20 
530 
940 
gO 
360 
970 
380 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
B00 
810 
820 
830 


PRINT "DON’T TRY TO BET MORE THAN YOU HAVE» 
GO TO 360 

LET D1l=INTCSXRNDCO) +1) 

LET D2=INTC6X*XRNDCO) +1) 

LET Q=Q+1 

LET S=D1i+02 

IF W>0 THEN 340 

PRINT " I ROLL "s0is "AND "e025 
GO TO SSo 

FRINT "YOU ROLL "sTll> "AND "slay 
IF Q*>1 THEN 860 

IF (S-2)k(S-3)*(S-12)=0 THEN 640 
IF (S-7)*(S-11)=0 THEN 710 

IF W>0 THEN 610 

PRINT "SO MY POINT IS"sS 

GO TO 620 

PRINT "SO YOUR FOINT IS"S 

LET P=S 

GO TO 470 

PRINT "AND CRAF OUT..." 

LET C=1 

IF W>0 THEN 690 

LET Z=Z+B 

GO TO 770 

LET Z=Z-B 

GO TO 770 

PRINT “ANDI FASS+ +++" 

LET C=1 

IF W>0 THEN 760 

LET Z=Z~B 

GO TO 770 

LET Z=Z+B 

FRINT 

IF Z1 THEN 1060 

FRINT “YOU NOW HAVE "$25 "DOLLARS" 
IF C>0 THEN 830 

PRINT “CHANGE DICE NOW..." 

PRINT 

LET W=WxC 


PLEASE, " 


FROGRAM NAMES CRAPS/H 11 BASIC < CONT’D = 


840 LET Q=0 

850 GO TO 340 

8460 IF S&>7 THEN 940 

870 FRINT “AND LOSE...” 

880 LET C=~1 

890 IF W>0 THEN 920 

900 LET Z=Z+B 

910 GO TO 770 

920 LET Z=Z~B 

930 GO TO 770 

940 IF S=F THEN 970 

950 FRINT “.++ROLL AGAIN." 

9460 GO TO 470 

970 IF Ws0 THEN 1020 

980 FRINT “ANI MAKE MY POINT" 

990 LET C=1 

1000 LET Z=Z~-B 

1010 GO TO 770 

1020 PRINT “AND MAKE YOUR FOINT" 
1030 LET C1 

1040 LET Z=Z+E 

1050 GO TO 770 

1060 PRINT 

1070 FRINT "YOU HAVE RUN OUT OF MONEY.+++SORRY ABOUT THAT." 
1080 GO TO 1110 

1090 PRINT "THANKS FOR THE GAME. ANID CONGRATULATIONS" 
1100 PRINT "FOR BEING ABLE TO QUIT WHILE YOU WERE AHEAD." 
1110 FRINT \PRINT \PRINT 

1120 GO TO 1140 

1130 FOR I=1 TO 14000\NEXT INRETURN 
1140 END 
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FROGRAM NAME? ELIZA/ H 11 BASIC 


490 


DIM $(36) ¥R¢36) »N( 346) 
N1=36\N2=12\N3=112 


FOR X=1 TO N1I#N2+N3\REALD Z$\NEXT X 

FOR X=1 TO Ni 

READ SCX) »LNRCX=SCXINNCX)=SCX)4L-1 

NEXT X 

PRINT "HI! I’M ELIZA. WHATS YOUR FRORLEM?*" 
INFUT I¢ 

T$=" "SI¢%" * 


FOR L=1 TO LEN(T$) 

IF SEG#(I$elylLoae"’" THEN 234 

I$=SEGS$(I$e1eL-1) &SEGS(I$elL+1yLENCI$))\GO TO 225 
IF L+42LENCI$) THEN 250 

IF SEG#(I$elyL+3)<>"SHUT" THEN 250 

PRINT "SHUT UP..+.+"\STOF 

NEXT L. 

IF I[¢<>F%$ THEN 290 


PRINT "PLEASE DON’T REPEAT YOURSELF! "\GO TO 200 
RESTORE 

$=0 

FOR K=1 TO Ni 

READ K& 

IF S=0 THEN 360 


FOR L=1 TO LENCI$)-LEN(KS$) 41 

IF SEGS(I$yL yh tLENCK$)-1)<2K$ THEN 350 
S=K\T=LA\F $=Kh$ 

NEXT L 

NEXT K 

IF S“=0 THEN 370 

K=S\L=T\GO TO 420 

K#36\GO TO 590 

RESTORENFOR X=1 TO NINREAD Z$\NEXT X 
C$=" "SSEGS(ISsLENCF SI tL yLENC IS) ) 

FOR X=1 TO N2/2 

REAL S#r+R$ 

FOR L=1 TO LEN(CS$) 

IF L+tlLEN(S#)>LEN(C$) THEN S10 

IF SEG#(C$yLyLtLEN(S$)-1)<2S6 THEN 510 
C$=SEGS(CHe del -1) &R$&SEGS$(CHeoLtLENCSS$) yLENCCS) )D 
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RAM NAME? ELIZA/ H 11 BASIC < CONT‘’D > 

L=L+LENCRS$) 
GO TO 540 

IF L+LENCR$)>LEN(C$) THEN 540 

IF SEG#(CHeleL+lLEN(R$)-1)<>R$ THEN 540 

C$=SEGS$(CHy1eL—1) &S$8SEG$(CH$eL4tLENCRS) »LEN(CS) )D 

L=L+tLEN (S$) 
NEXT L 

NEXT X 

IF SEG#(C$92e2)2>" " THEN 390 

C$=SEGS$(CH$r2»LENCCS$) > 

RESTORE\FOR X=1 TO NI+N2\READ Z$\NEXT X 
FOR X=1 TO RCKI\READ F&NNEXT X 

ROK eRCRDFINIF ROK S=NCK) THEN 620 

RCKRIES CH) 

IF SEGS(F$sLENCFS) sLENC FS) )="X" THEN 630 

PRINT F¢\FP$=I¢\GO TO 200 

PRINT SEGS(FHslyLENCFS)-1)9C$ \ 
F¢=T¢\GO TO 200 

REM 

DATA "CAN YOU"» "CAN I"»"YOU ARE*s "YOURE" »"I DONT" s "I FEEL" 
DATA "WHY DONT YOU"»s "WHY CANT I“y"ARE YOU"y"I CANT"? "I AM"»" 
DATA "YOU “»"I WANT" + "WHAT" » "HOW" » "WHO" » "WHERE" » "WHEN" » "WHY" 
DATA "NAME"»"CAUSE"»"SORRY"» "DREAM" »"HELLO"»"HI “» "MAYBE" 
DATA " NO" "YOUR" y "ALWAYS" » "THINK" » "ALIKE", "YES"» "FRIEND" 
DATA "COMPUTER" » "NOKEYFOUND" 

REM 

REM FROGRAM DATA 

REM 

DATA " ARE “»" AM “"»" WERE “»" WAS "»¥" YOU "y" IT "yy" YOUR " 
DATA “ MY “»" IVE “»¥" YOUVE “»" IM "»" YOURE " 

REM 

REM REPLIES 

REM 

DATA "DON’T YOU BELIEVE THAT I CANK" 

DATA “FERHAFS YOU WOULD LIKE TO BE ABLE TOx" 

DATA "YOU WANT ME TO BE ABLE TOx" 

DATA "FERHAFS YOU DON’T WANT TOx*" 
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FROGRAM NAME? ELIZA/ H 11 BASIC < CONT‘D > 


1365 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1420 
1630 
1640 
1650 
1660 
1670 
1480 
1690 
17090 
1710 
1720 
1730 
1740 


LATA 
TATA 
IATA 
DATA 
LATA 
IATA 
DATA 
DATA 
DATA 
LATA 
DATA 
IATA 
DATA 
DATA 
DATA 
LATA 
DATA 
LATA 
DATA 
DATA 
LATA 
DATA 
DATA 
DATA 
DATA 
NATA 
LATA 
TIATA 
LATA 
DATA 
IATA 
TATA 
LATA 
LATA 
LATA 
ATA 
ATA 
TATA 
DATA 


"D0 YOU WANT TO BE ABLE TOx" 

"WHAT MAKES YOU THINK I AMx" 

"NOES IT PLEASE YOU TO BELIEVE I AMx*" 
"PERHAPS YOU WOULD LIKE TO BEX" 

"0 YOU SOMETIMES WISH YOU WERExX" 
"DON’T YOU REALLYxX" 

"WHY DON’T YOUXx*" 

"DO YOU WISH TO BE ABLE TOx* 

"NOES THAT TROUBLE YOU ?* 

"TELL ME MORE ABOUT SUCH FEELINGS." 
"00 YOU OFTEN FEELX" 

"DO YOU ENJOY FEELING" 

"NO YOU REALLY BELIEVE I DON’Tx" 
"FERHAPS IN GOOD TIME I WILLx* 

"DO YOU WANT ME TOx" 

"00 YOU THINK YOU SHOULD BE ABLE TOx" 
"WHY CAN‘T YOUX" 

"WHY ARE YOU INTERESTED IN WHETHER OR 
"WOULD YOU FREFER IF I WERE NOTx" 
"PERHAPS IN YOUR FANTASIES I AMx*" 
"HOW DO YOU KNOW YOU CAN‘TX*" 

"HAVE YOU TRIED 7?" 

"PERHAPS YOU CAN NOW" 

"DI0 YOU COME TO ME BECAUSE YOU AREX" 
"HOW LONG HAVE YOU BEENX*" 

"tO YOU BELIEVE IT IS NORMAL TO BExX* 
"0 YOU ENJOY BEINGX" 

"WE WERE DISCUSSING YOU.++.++NOT ME." 
"OH» Ix" 


NOT I AMxK*" 


"YOU’RE NOT REALLY TALKING ABOUT ME ARE YOU ?" 
“WHAT WOULD IT MEAN TO YOU IF YOU GOTx*" 


"WHY DO YOU WANTX" 

"SUFFOSE YOU SOON GOTX*" 

"WHAT IF YOU NEVER GOTX" 

"I SOMETIMES ALSO WANTX* 

“WHY DO YOU ASK ?" 

"DOES THAT QUESTION INTEREST YOU ?* 


"WHAT ANSWER WOULD FLEASE YOU THE MOST 7?" 


"WHAT 00 YOU THINK 7?" 


FROGRAM NAME? ELIZA/ H 11 BASIC «< CONT‘’D > 


1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
18640 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1999 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 


2130 


LATA 
LATA 
TATA 
LATA 
TATA 
TATA 
IATA 
DATA 
LATA 
LATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
[LiATA 
DATA 
TlATA 
DATA 
LATA 
TATA 
LATA 
LATA 
DATA 
IATA 
LATA 
LATA 
TATA 
IATA 
LATA 
LATA 
TATA 
DATA 
DATA 
TATA 
LATA 
DATA 
DATA 


° 


"ARE SUCH QUESTIONS ON YOUR MINI) OFTEN ?* 
"WHAT IS IT THAT YOU REALLY WANT TO KNOW ?* 
"HAVE YOU ASKED ANYONE ELSE ?* 

"HAVE YOU ASKED SUCH QUESTIONS BEFORE ?° 
"WHAT ELSE COMES TO MIND WHEN YOU ASK THAT 7?" 
"NAMES DON’T INTEREST ME." 

"I DON’T CARE ABOUT NAMES» FLEASE CARRY ON." 
"IS THAT THE REAL REASON 7?" 

"DON’T ANY OTHER REASONS COME TO MIND ?* 
"NOES THAT REASON EXPLAIN ANYTHING ELSE ?* 
"WHAT OTHER REASONS MIGHT THERE BE ?" 
"PLEASE DON’T AFOLOGIZE !" 

"AFOLOGIES ARE NOT NECESSARY." 

"WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE 
"DON’T BE SO DEFENSIVE !* 

"WHAT DOES THAT DREAM SUGGEST TO YOU ?* 

"nO YOU DREAM OFTEN *?" 

"WHAT FERSONS APPEAR IN YOUR DREAMS 7° 

"ARE YOU DISTURBED BY YOUR DREAMS 7° 

"HOW DO YOU DO» FLEASE STATE YOUR FROBLEM. " 
"YOU DON’T SEEM QUITE CERTAIN." 

"WHY THE UNCERTAIN TONE ?"* 

"CAN‘’T YOU BE MORE FOSITIVE ?* 

"YOU AREN’T SURE ?" 

"DON’T YOU KNOW ?* 

"ARE YOU SAYING NO JUST TO BE NEGATIVE 7?" 
"YOU ARE BEING JUST A BIT NEGATIVE." 

"WHY NOT ?* 

"ARE YOU SURE ?"* 

"WHY NO ?" 

"WHY ARE YOU CONCERNED ABOUT MYX" 

“WHAT ABOUT YOUR OWNX" 

"CAN YOU THINK OF A SPECIFIC EXAMPLE 7?" 
"WHEN ?° 

"WHAT ARE YOU THINKING OF ?* 

“REALLY»s ALWAYS ?* 

"nO YOU REALLY THINK SO ?" 

"BUT YOU ARE NOT SURE YOUX" 

"nO YOU DOURT YOUX" 
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PROGRAM NAME ELIZA/ H 11 BASIC < CONT‘’D > 


2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 


2290 


2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
M ?* 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2500 
2510 
2520 
2530 
2040 
2000 
2560 


3000 


DATA 
ATA 
ATA 
DATA 
DATA 
DATA 
TATA 
LATA 
TATA 
LATA 
IATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
LATA 
TATA 
DATA 
DATA 


TATA 
DATA 
DATA 
LATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 


"IN WHAT WAY 7?" 

"WHAT RESEMBLENCE 00 YOU SEE 7?" 

"WHAT DOES THE SIMILARITY SUGGEST TO YOU ?" 
"WHAT OTHER CONNECTIONS DO YOU SEE 7?" 

"COULD. THERE REALLY BE SOME CONNECTION ?* 
"HOW ?" 

"YOU SEEM QUITE POSITIVE." 

"ARE YOU SURE ?" 

"I SEE." 

"I UNDERSTAND. " 

“WHY DO YOU BRING UF THE TOPIC OF FRIENDS 7?" 
"tO YOUR FRIENDS WORRY YOU ?* 

"00 YOUR FRIENDS FICK ON YOU ?°* 

"ARE YOU SURE YOU HAVE ANY FRIENDS ?" 

"NO YOU IMPOSE ON YOUR FRIENDS ?* 

"FERHAFS YOUR LOVE FOR FRIENDS WORRIES YOU." 
"D0 COMPUTERS WORRY YOU 7?" 

"ARE YOU TALKING ABOUT ME IN PARTICULAR ?* 
"ARE YOU FRIGHTENED BY MACHINES ?* 

"WHY DO YOU MENTION COMPUTERS 7?" 

"WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR FROBLE 


"DON’T YOU THINK COMPUTERS CAN HELF PEOPLE ?" 
"WHAT IS IT ABOUT MACHINES THAT WORRIES YOU ?* 
"SAY» [00 YOU HAVE ANY PSYCHOLOGICAL PROBLEMS 7° 
"WHAT DOES THAT SUGGEST TO YOU ?* 

"I SEE." 

"I’M NOT SURE I UNDERSTAND YOU FULLY." 

"COME COME ELUCIDATE YOUR THOUGHTS, " 

"CAN YOU ELABORATE ON THAT ?°* 

"THAT IS QUITE INTERESTING. * 


REM THE DATA FOR THE RIGHT REPLIES 


REM 
DATA 
DATA 
DATA 
LATA 
END 
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FROGRAM NAME? MADLIB/H 11 BASIC 


10 REM MADLIB #2 

20 RANDOMIZE 

30 DIM ASC 11)» B$(2)9CH$(10) »X$C11) x YSC7) 

40 PRINT “YOU SUPPLY THE WORDS?’ I’LL WRITE 
30 PRINT "NO TWO STORIES ARE ALIKE !"\FRIN 
60 PRINT "FIRST» I NEED 11 ANJECTIVES» E.G 


,»" 


70 PRINT “FUZZY»PRUNE-FACEDy ETC."\FOR I=1 
I 

90 FRINT \FRINT “NOW I NEED TWO ADVERES, 
MODESTLY»" 

100 PRINT “STUPIDLY»sGREEDILY, ETC."\INFUT 
L10 FRINT 

120 FRINT "NOW 7 NOUNS. THINGS LIKE BEER 

WASH BASIN." 

130 FOR T=1 TO 7\INFUT C&CTONNEXT INPRINT 
¥C$C10) 

140 PRINT "A GEOGRAPHICAL LOCATION" \INFUT 
INFUT C#(8) 

150 PRINT "THE FIRST NAME OF A GIRL" \NINFUT 

ME OF A MAN" 

155 INFUT FS 

160 FRINT “AND FINALLY» SOMEONE’S LAST NAM 
170 FOR T=1 TO LI\X$¢(T)=""*\NEXT INFOR I=1 
180 FOR I=1 TO 11 

185 R=INTCRNOCOKII+1) 


THE STORIES." 
- LUMF Ys SHORT-SIGHTED 
TO LININFUT ASCT)\NEXT 
THEY END IN ‘LY’: E+Gey» 
R$(1) BS (2) 
CANy APRICOT» BIG TOE» 
"TWO FOODS*\INFUT C$(9) 
DNé\FRINT "A CONTAINER "\ 
ES\PRINT “THE FIRST NA 


E"\INFUT G#\G$=" "86% 
TO 7NY$C(T)=""\NEXT I 


190 ITF X#¢(R)<>"" THEN 185 \X$¢(R)=ASCIT)\NEXT I 


200 FOR I=1 TO 7 
210 R=INTCRNOCO)X7+4+1) 


220 IF Y#(R)2e"" THEN 210 \Y$CR)=CHCT)\NEX 
230 FRINT \FRINT "THANK YOU ! NOW WHAT WO 
240 FRINT " 1. TIFS ON SERVING WINE "\F 
VIEW" 

200 FRINT * 3. BEAUTY AQYVICE"\FRINT *" 
260 FRINT " ve A WEDDING DESCRIFTION" 


270 PRINT "FLEASE ANSWER ‘1’» ’2%» ETC. OR 
280 IF M$="ALL" THEN 350 \IF M$="1" THEN 3 


290 IF M$="3" THEN 750 \IF M$="4" THEN 600 
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T I 

UL YOU LIKE?" 

RINT * 2+ A BOOK RE 
4, A FABLE" 


“ALL "FNINPUT M$ 
JO \IF M$="2" THEN S00 


FROGRAM NAME? MADLIEB/H 11 BASIC < CONT‘’D > 


300 IF M$="5S" THEN 950 \PRINT “I DON’T UNDERSTAND “"M$"’."\GO TO 


270 


350 FOR I= 


—E* 

355 PRINT 
360 PRINT 
"X#$C1) 
370 PRINT 
ENDS WITH" 
380 PRINT 

FROM" 

390 FRINT 
IN" 

400 PRINT 
VATS" 

410 FRINT 
HAT GIVES" 
420 PRINT 
W RULES: * 
430 FRINT 
440 PRINT 
450 FRINT 
460 PRINT 
TABLE" 

470 PRINT 
490 GOSUB 


300 FOR I= 


1 
910 FRINT 
s20 PRINT 


930 FRINT 
340 FRINT 
TO A" 
S50 PRINT 
—E* 

360 PRINT 
"X$¢C10) 
370 FRINT 

ANI" 


1 TO S\FRINT \NNEXT INFRINT TABC20)¢ "TIPS ON SERVING WIN 


"A GOOD WINEs SERVED "B$(2)"» CAN MAKE ANY MEAL A TRULY 
“OCCASION. THE RED WINES HAVE A "X$(3)" FLAVOR THAT BL. 
Y#(1)"S OR SMOKED "C$(9)". WHITE WINES RANGE IN FLAVOR 
X$(4)" TO "X$(6)". THE BEST WINES ARE MADE BY FEASANTS 
Dé" FROM THE JUICE OF RIFE "Y$¢(3)"S BY FUTTING THEM IN 

"AND SQUASHING THEM WITH THEIR "X$(8)" FEET. THIS IS W 
"WINE THAT "X#¢10)" AROMA."\PRINT \F RINT "HERE ARE A FE 
1. ALWAYS SERVE WHITE WINE IN A "X#$(2)" GLASS AT" 

. "Y$(S)" TEMPERATURE. " 

2. NEVER SERVE BURGUNITY WITH FRIED "Y$(2)"S," 

? 3. WINES SHOULD ALWAYS BE DRUNK "BS¢(1)" OR YOU’RE L 
TO END UP WITH A "X$¢(7)" STOMACH. " 

1490 

1 TO S\FPRINT \NEXT INFRINT TAB(22)¢"A BOOK REVIEW"\PRIN 


F$3G%" HAS JUST WRITTEN AN AUTOBIOGRAPHY CALLED “’THE" 
Y$(7)" IN THE “X#$(5)" "Y¥$C4)".% THE MAIN CHARACTER IN" 


"THIS "X#(9)" STORY IS A "X#$(11)" GIRL NAMED "ES" WHO" 
"CAN’T DECIDE BETWEEN A CAREER IN "Y#(6)"S OR MARRIAGE 


X$(2)" BOY WHO HAS FROMISED HER A "X#¢7)" "C#$C(10)". TH 
"AUTHOR HAS MANY CONFLICTS TO RESOLVE» BUT FINDS THAT A 


"MARRIAGE IS THE ANSWER. THIS BOOK IS WRITTEN "BS#(1)" 
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FROGRAM NAME? MADLIB/H 11 BASIC 


280 FRINT 


390 FRINT 
89S GOSUEB 


600 FOR I= 


610 FRINT 
WHO WAS" 
620 FRINT 
630 FRINT 
BUYING" 
640 FRINT 
650 FRINT 
660 PRINT 
C72 e" 
665 PRINT 
670 FRINT 
A SHE" 
680 FRINT 


® 
* 


690 PRINT 


"FILLED WITH "X$¢(4)" LANGUAGE. IT FROVES THE OLD ADAGE 
7 “A WOMAN’S FLACE IS IN THE "Y#(S)".7%" 

1490 

1 TO S\PRINT \NNEXT INPRINT TAB(26)"A FABLE" \FRINT 

"ONCE UPON A TIME THERE WAS A VERY CURIOUS GIRL», “ES"» 


"FOKING HER NOSE INTO EVERYBOSY’S "C#$(8)"S. SHE KEPT" 
"COMPANY WITH A "X$(6)" MAN NAMED "FS"» WHO WAS ALWAYS 


"HER "X$(9)" PRESENTS+ "\PRINT 


"ONCE HE GAVE A DIAMOND "Y$(2)" TO WEAR ON HER “Y#(4) 
"AND HE BOUGHT HER A "X#¢C1)" "C#$(9)" TO WEAR IN HER “Y% 


"THEN ONE DAY HE BOUGHT HER A "X$(11)" HORSE. AS SOON 
"SAW THE “X$(3)" ANIMAL SHE BEGAN TO EXAMINE IT “B#(1)" 


"FIRST SHE LOOKED AT THE HORSE’S "Y#(3)"» AND THEN AT I 


TS "C#$(10)"," 


700 FRINT 
(1)"S," 
710 PRINT 
ae 


720 FRINT 


740 GOSUB 


750 FOR I= 


760 PRINT 


770 FRINT 
RE" 

780 PRINT 
790 FRINT 
ARM" 

800 FRINT 
0) 

810 FRINT 


"THEN SHE OPENED ITS MOUTH SO SHE COULD LOOK AT ITS "Y# 
"AT THIS THE HORSE BECAME "“X#(7)" AND BIT OFF HER "Y$¢(6 
\PRINT "MORAL? NEVER LOOK A GIFT HORSE IN THE "Y#(5)"! 


1490 

lL TO S\NPRINT \NEXT INPRINT TAR(22)"BEAUTY ADVICE“ \FRINT 
"IF YOUR SKIN IS "X$(1)" OR "X$¢(3)"»r YOU CAN CURE THIS" 
"CONDITION WITH THE FOLLOWING CARE. EVERY MORNING REFO 


"WASHING YOUR “Y$C(1)"» MASSAGE IT GENTLY WITH A "Y#¢(3) 
"THAT HAS BEEN SOAKING OVERNIGHT IN A "C#(8)" FULL OF W 
Y#(7)"S. THEN MIX TOGETHER SOME "C4#(9)" AND SOME "C#¢1 


“UNTIL THE MIXTURE BECOMES "X#(5)". FAT THIS ONTO YOUR 
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820 PRINT X$(9)" COMPLEXION FOR FIVE MINUTES. THEN REMOVE» USING 
A" 
830 FRINT Y$(6)"» AND WASH YOUR FACE WITH "X$(6)" WATER. DO NOT* 


840 FRINT “OMIT THIS "X#(8)" STEF OR YOUR SKIN WILL BECOME "X#(11 
274" 

850 PRINT \FRINT "DO THIS "B¢(2)" EVERY DAY AND YOU SOON WILL BE 
AS "X$ (7) 

8460 FRINT "AS “"ES*G$",. " 

940 GOSUB 1490 

950 FOR I=1 TO S\PRINT \NEXT INFRINT TABC17)5"DESCRIFTION OF WEDD 
ING" 

9355 PRINT 

9460 PRINT "THE *X#$(11)" WEDDING YESTERDAY AFTERNOON BETWEEN "X$(1 
0) 

970 PRINT E#" AND HER GROOM "“FSsG$" WAS CARRIED OFF "B$(2)". THE 
BRIDE" 

980 FRINT "WORE A LONG "X#(2)" "Y$C(2)" WITH "X#(4)" EDGING AND A 
"X$(9) 

990 PRINT “NECKLINE. AT THE END OF THE "X$(8)" CEREMONY,» THERE W 

ASN’T A DRY" 

1000 PRINT Y#(4)" IN THE PLACE. "\PRINT 

1010 PRINT “LATER AT THE RECEF TION THE BRIDE’S MOTHER SAID, ’THE 

GROOM IS A" 

1020 FRINT X#(10)" MANy JUST THE TYFE OF "C#(10)" WE WANTED FOR O 
UR" 

1030 FRINT X#$¢(6)" DAUGHTER.’ THE “X$(3)" COUPLE LEFT, MIDST A FL 

URRY OF" 

1040 PRINT X#¢1)" CONGRATULATIONS» TO SFEND A "X$(7)" HONEYMOON V 
ISITING* 

1050 FRINT Y$(4)"S IN "D¢"."\PRINT \PRINT "THEY ARE SURE TO LIVE 
"RECL)$ 

1060 FRINT " FOR MANY YEARS." 

1485 GO TO 1500 

1490 IF M#<>"ALL" THEN 1500 \RETURN 

1500 FOR T=1 TO S\FPRINT \NNEXT I 

1510 FRINT “ANOTHER STORY (CY OR N)"#N\INFUT N&NIF N$="N" THEN 2000 
1520 FRINT "SAME WORDS CY OR N)"s\INFUT N&\IF N¢="N" THEN 60 \GO 


TO 170 
2000 FRINT "HOPE YOU HAD FUN ! SO LONG FOR NOW. "\END 
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PROGRAM NAME? CRAZY EIGHTS/HOYLE 


DIM 0¢51) 9N$(12) 9S$(3) vHBC19S1)SC1l=S2¢F=1 
DIM ZOC1rS1) 

Q3=03Q4=03C2=0 

FOR I=0 TO S1l20CL)=1TsNEXT IT 

FOR I=0 TO 122REAQD NSC I) NEXT IT 
FOR [=0 TO 3:READ S#$( I) NEXT I 

DATA *A7 P26 FST yA? 9 8S OSE OF" Sl OD? eT LOT a Be oe OOF ORE 
DATA "DD" 9 "C"y"H"s"S" 

DEF FN M(M1»¥M2)=M1-(M2xXINTCMI/M2) ) 
PRINT TAB(7)5"WELCOME TO ‘CRAZY EIGHTS WITH VICIOUS TW 


PRINT "MY NAME IS AGGIE. I WILL BE YOUR OFFONENT." | 
LINE INFUT "WHAT‘S YOUR NAME ?"¢X$iGOSUB 1100;GOSUB 12507A | 


PRINT TABC7)$ASSSLINE INFUT “» DO YOU WANT INSTRUCTIONS? "3 


GOSUB 1L1O03IF LEFT#(X$¥1)="Y" THEN GOSUB 2500:GOSUB 2000 w 
LINE INFUT "WHAT SHALL WE FLAY TO¢(100 OR SOO)? “FX | 
GOSUB 1100:GOSUB 1140:GOSUB 1300:G=VAL (X#$) | 
PRINT TAB(10)3"SO WE ARE GOING TO FLAY TO"sGs"." | 
RENT “FEC 10) 8M me i resin cerceenerori erm orem ores 9 

N=13GOSUB 2500 

IF F=1 THEN PRINT “CARDS HAVE BEEN SHUFFLED" $F =0 

PRINT TAB(20)5 "HAND NUMBER "¥N 

PRINT TAR C20 ) Bh scm qeemeneneqnnce™ 

PRINT "NUMBER OF DISCARD NUMBER OF YOUR" 

PRINT " AGGIE’S PILE CARDS LEFT HAND" 

PRINT " CARDS IN DECK" 

FRINT Oh isvee:siseineen' nasi ene ncnieuns cone labo sore naes see mone ante seen epee eee 004 seen see seve otee tees anes seen anes seer neve eave seen nee sete open eens Gene atte sees onee 

FOR Ii=1 TO 7 

GOSUB 10003Z0¢(O»T1~-1)=CiGOSUB 1040 
H$(OvTi-1)=S$+N$ 

GOSUB 1000:3ZO(1+T1-1)=C3GOSUB 1040 
H# CL» T1-1)=Sé+N$ 

IF Ii=1 THEN K#=H$(170) 

IF [isi THEN K=K$t" "+H$C1»T1i-1) 
PRINT TARC2) 511+ TABC4O) FKSS 

IF I1=7 THEN 320 
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PROGRAM NAME’ CRAZY EIGHTS/HOYLE < CONT‘D > 


00300 
00310 
00320 
00330 
00331 
00332 
00333 
00334 
00340 
00345 
00350 
00355 
350 
00356 
00357 
350 
00360 
00370 
00375 
THEN 
00380 
00390 
00415 
0 OR 
00416 
00417 
00418 
00420 
00430 
00440 
00450 
00460 
00470 
01000 
01005 


01010 


01020 
01025 
01030 


FOR J=1 TO 40+LENCKS$)3PRINT CHRE(8) 8 2NEXT J 

NEXT I1 

FOR J=1 TO 24+LENCKRS$) SPRINT CHR#(8)52NEXT J 

GOSUB 1000 

C2=C2-1 

NCS1)=0037) sO037 =CiC9=Citl 

GOSUR 1040 

USF=S$+NG 

D=373AL=73F1=73PRINT OSs TABC27) oO 

T=O°2IF RIGHTE(LEFTS(0$s2)91)="2" THEN T=2 

X$="—"SLINE INPUT "IT’S YOUR GO "9X 

IF X$="" OR X$=" " OR X$="  " OR X$=" " OR X$=" " THEN 
IF X¢$=" " OR X$=" " OR X$=" " THEN 350 

IF X$=" " OR X$=" " OR xX$=" " THEN 
GOSUB 11003GOSUB 1140 

A2$=RIGHTS(LEF TS (X$%2) 91) 

IF ASC(A2$)=65 OR ASCCA2$)=74 OR ASCCAR$I=75 OR ASCCAZ$)=81 
390 

IF ASC(A2$)<=47 OR ASCCAR$)2=58 THEN GOSUB 1400?%GOTO 460 
GOSUB 1450 

IF T=2 AND MIDG(X$e291)22"2" THEN FRINT “YOU MUST FLAY A TW 
DRAW. " 

IF T=2 AND MIDS(X$e291)<>"2" THEN 350 

F=O3;GOSUB 1510 

IF F=0 THEN GOSUB 1580 

IF P=0 THEN FRINT "THAT CARD IS NOT PLAYABLE.":GOTO 350 

IF Fi=2 OR W8=1 THEN GOSUB 1600;W8=0 

IF MILIS(X$r291)="2" THEN T=Tte 

GOSUB 1640 

GOSUB 2510 

GOTO 2651 

X=INTCCIUXRNDCL)) 3 C=00X) 

IF X=S1 THEN 1020 

FOR T#X TO SO¢mudcCT =OocI+1)¢NEXT 

NCSI HCSCL=C1l-1iCe=Cet1 C9=C9-1 3s o=0-1 

IF Ci=0 THEN C1=C9-1¢F=120=C9-1 

RE TURN 
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FROGRAM NAMES CRAZY EIGHTS/HOYLE < CONT‘D = 


SHORTER 


01040 N$=NS(FN M(Cx13))3S%=S$(FN M(Cr4)) SRETURN 
01100 FOR I2=1 TO 80 

01110 IF RIGHTS(LEFT$(X$rT2)21)2>" " THEN 1130 
01120 NEXT I2 

01130 X$=RIGHT$ (X$rLEN(X$)-C 12-1) ) ?RETURN 

01140 FOR I2=1 TO 80 

01150 IF LEFTS$(RIGHT#(X#7T2)1)¢>" " THEN 1170 
01160 NEXT I2 

01170 X$=LEFT#(X#*/LENCX$)-(CIT2-1)) 

01180 FOR I2=1 TO 80 

01190 IF RIGHTS(LEFT#(X#/T2)21)=" " THEN 1220 
01200 IF I2>=LEN(X$) THEN RETURN 

01210 NEXT I2 

01220 X$=LEFT$(X$9T2-1)+RIGHTS(X$sLENCX$)~-T2) 
01230 GOTO 1180 

01250 FOR I2=1 TO 20 

01260 IF RIGHTS(LEFT#(X#eT2)91)=" " THEN 1290 
01265 IF I2>=LEN(X$) THEN RETURN 

01270 NEXT I2 

01280 PRINT "YOUR NAME IS TOO LONG. FLEASE USE A 
GOTO 100 

01290 X$=LEFT$(X#*eT2-1) RETURN 

01300 FOR I2=1 TO 80 

01310 AOS$=RIGHTS(LEFTS(X$rT2) 91) 

01320 IF ASC(A0$)<=47 OR ASC(AO$)>=58 THEN 1350 
01330 IF I2>=LENCA0$) THEN 1360 

01340 NEXT I2 

01350 PRINT "NO! THIS ISN’T A NUMBER."?GOTO 130 
01360 IF VAL(X$)<>100 AND VALCX$)<2>500 THEN 1380 
01370 RETURN 

01380 FRINT "NO! THIS ISN’T EITHER 100 OR S00.":GOTO 130 
01400 IF T=0 THEN T#=1 

01405 FOR I4=1 TO T 

01410 GOSUB 1000 

01412 ZOC1sFIt¢T4-1) dC 

01414 GOSUB 1040?tH#(1eF14(14-1) > =SttNn$ 

01420 NEXT 14 

01430 F1l=FP1+T? T=03 RETURN 

01450 C#2tIF RIGHTS(LEFT#(X#23)91)="0" THEN C#3 
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NAME. "3 


PROGRAM NAME? CRAZY EIGHTS/HOYLE <= CONT‘D > 


014460 U=0 

014465 C$=LEFTS(X$9C) 

01470 FOR I3=1 TO PLltIF Ce=H#(1eT3-1) THEN U=1315=13~1 

01480 NEXT I3 

01490 IF U=0 THEN FRINT "I’M SORRY BUT YOU DON’T HAVE THAT CARD"$ 
GOTO 350 

01500 RETURN 

01510 A3$=RIGHTS(LEFT$(X$22) 91) 

01520 IF AS$<>"8" THEN RETURN 

01530 RS=0 

01535 E¢="?" 

01540 FOR VS=2 TO LENCX#) 

01543 LET V4$=MITG(X$sVSr1) 

01545 IF V4$="S" THEN ES=MITISCX$s VS) 

01547 IF V4$="H" THEN ES=MIUS(X$9VS94) 

01548 IF V4$="f1" THEN ES$=MIDG(X$9V578) 

01549 IF V4$="C" THEN E*=MIDNS(X$eVS9S) 

01550 IF (E$="SFADES" OR E$="HEARTS" OR ES="DTAMONDS" OR E$="CLUB 
S$") THEN 1570 

01555 NEXT VS 

015460 FRINT “WHAT SUIT ARE YOU CHANGING IT TO?" 

01563 LINE INFUT "“SPADES’»’HEARTS’»‘D0ITAMONDS’s OR ‘CLUBS’ “sE% 

01566 IF NOT (E$="SPADES"OR E$="HEARTS"*OR E¢="DIAMONDS"OR E$="CLU 
BS") THEN 1540 

01570 NS=ESiPe lI RS=1 2 RETURN 

01580 SOS=LEF TS (X$91) INOS=MING(CX$e2eC-1)SS1$=LEFTS$(0$91)IN1$=MIDS 
(N$929C~-1) 

O1S8S IF MINS(N$s291)="8" AND Cl=37 AND AL+tP1=14 THEN FP=1?RETURN 

01590 IF SO$=S1$ OR NO¢=N1$ THEN F=1 RETURN 

01600 O=O2AS$=" 7" 

01610 FOR V6=1 TO LENCX$) 

01615 IF MINGCX$»VGyl)="O" THEN AS#$=MINSCX$eVGy7) 

O1617 IF MIDNG(CX$eVSe1)= "1" THEN ASH$=MITGCX$9VG9S) 

01620 IF A3$="OQNECARD" OR AS$="1CARD" THEN O=1 

01625 NEXT V6 

01630 RETURN 

01640 PL=FLi-LiFOR [3=I5 TO Pil-Lins (ly T3)=H$C le I 3t1l>tNEXT 13 

01641 W4=ZOC1rTS) 

01642 FOR [3#1I5 TO FPi-liZOC1ly TS =ZOCl eI 3t1 >) sNEXT 13 
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PROGRAM NAME 


01644 IF RS= 
01645 IF Fi= 
01646 FOR 23 
01647 NEXT Z 
01648 D¢Z3)= 
01649 RS=0 
014650 RETURN 
02000 FRINT 
OS" 
02010 FRINT 
02020 FRINT 
DEALT" 
02030 FRINT 
SCAR" 
02040 FRINT 
02044 FAUSE 
02050 FRINT 
F YOUR" 
02060 FRINT 
UCH AS" 
02070 FRINT 
WINS." 
02080 FRINT 
HEN YOU" 
02090 FRINT 
Nt.“ 
02100 FRINT 
02110 PRINT 
02120 FRINT 
02130 FRINT 
02134 FAUSE 
02140 FRINT 
ARD OR" 
02150 FRINT 
Ee" 
02160 FRINT 
RO OF" 
02170 FRINT 
CE» ON" 


$ CRAZY EIGHTS/HOYLE < CONT‘’D > 


O THEN [1¢=C4% 

0 THEN Q=2:G0TO 4050 

=C9 TO SisIF 0¢Z3)=W4 THEN 1648 
3 


TAB(7)$ "INSTRUCTIONS FOR CRAZY EIGHTS WITH VICIOUS TW 


TAB ¢ 7) 3 Oh sans cues snce cave sson seen sett sees ores sees cen secs woes suse sees tees sees tne tees sone save ste onss sees cute cave seen seat seen sete weet ate sete tans enue sone foun ston sees seen sees sive sane sees etn 


TAR(S)3"THIS IS A GAME FOR TWO FLAYERS. WE EACH ARE 
"SEVEN CARDS AND ONE CARD IS TURNED UF TO FORM THE [TI 
*PILE<* 

2000iGOSUB 2500 

TABCS) $"THE OBJECT OF THE GAME IS TO GET RID OF ALL O 
"CARDS. YOU FLAY THE GAME TO A FREDETERMINED SCORE S 
"100 OR SOO» AND THE FIRST PLAYER TO REACH THIS SCORE 
TABCS)$ "WHEN YOU HAVE GOTTEN RID OF ALL YOUR CARDS» T 


"SCORE FOINTS FOR THE CARDS LEFT IN YOUR OPFONENTS HA 


TAB(10)%"2 THROUGH 7 - COUNTS FIVE FOINTS" 
TAB(10)3" 8 ~ COUNTS FIFTY ~: POINTS” 
TAB(10)5"9 THROUGH K ~ COUNTS TEN FOINTS" 


TABC10O)#" A -~ COUNTS 
10000:GOSUR 2500 
TARCS) 3 "WHEN IT IS YOUR GO YOU MUST EITHER DRAW ONE C 


TWENTY FOINTS" 
"PLAY ONE CARD. YOU MAY FLAY A CARD ON THE TOF OF TH 
"NISCARD FILE IF THE CARD YOU PLAY MATCHES THE TOF CA 


"THE DISCARD PILE IN EITHER SIZE OR SUIT. FOR INSTAN 
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02180 FRINT 
BUT" 
02190 FRINT 
02195 FAUSE 
02200 FRINT 
IGHTS" 
02210 FRINT 
NE" 
02220 FRINT 
FOR" 
02230 FRINT 
OQUNCE® 
02240 FRINT 
NOTHER* 
2250 PRINT 
E* 
02260 FRINT 
F WHAT" 
02270 FRINT 
02280 FAUSE 
02290 FRINT 
ION." 
02300 FRINT 
02310 FRINT 
AYS A" 
02320 PRINT 
O OR" 
02330 FRINT 
PLAYED" 
02340 FRINT 
OUT OF" 
02350 PRINT 
02355 FAUSE 
02360 FRINT 
ONE" 
02370 FRINT 
SAYING" 
02380 FRINT 
F YOU" 
02390 PRINT 
IF" 


"THE “HQ’ YOU COULD FLAY EITHER THE ’H7’ OR THE ‘CQ’ 
"THE ’CJ’ WOULD) NOT BE FLAYABLE. " 

I000;GOSUB 2500 

TAB(S) "TWO TYPES OF CARDS HAVE SFECIAL FUNCTIONS. E 
“MAY BE FLAYED ON ANYTHING EXCEFT TWOS AND THEN THE O 
"WHO FLAYS THE EIGHT MAY CHANGE THE SUIT TO ANY SUIT. 
"EXAMPLE» ON THE “HQ’ YOU COULD PLAY THE ‘C8’ AND ANN 
"“SPADES’. THEN SOMEONE CAN ONLY FLAY A ‘SFADE’ OR A 
“EIGHT. IF AN EIGHT IS TURNED UF TO BEGIN WITH ON TH 
"DISCARD PILE» THEN THE FIRST PLAYER HAS HIS CHOICE O 
"SUIT TO FLAY." 

10000;GOSUBR 2500 

TAB(S) s"TWOS ARE THE OTHER CARDS WITH A SFECIAL FUNCT 


“WHEN SOMEONE PLAYS A TWO THEN !tHE OTHER FLAYER MUST" 
"EITHER PLAY ANOTHER TWO OR DRAW TWO CARDS. IF HE PL. 


"TWOr THEN THE FIRST TWO FLAYER MUST EITHER FLAY A TW 
"DRAW FOUR CARDS AND SO ON. IN OTHER WORDS EACH TWO 
"DEMANDS TWO CARUS BE URAWN FOR IT UNLESS SOMEONE IS 
"CARDS," 


10000:GOSUB 2500 
TABRCS) 3 "THERE IS ONE MORE RULE. 


WHEN YOU ARE TOWN TO 
"CARD YOU MUST WARN THE OTHER FLAYER OF THIS FACT BY 
"“ONE CARD’ AFTER YOU FLAY YOUR NEXT TO LAST CARD. Tf 


"DON’T DO THIS» THEN YOU CAN’T GO OUT THE NEXT TIME. 


PROGRAM NAME? CRAZY EIGHTS/HOYLE 


02400 FRINT "YOU GO AHEAD AND FLAY YOUR LAST CARD» YOU WILL BE GI 


02410 PRINT "ANOTHER ONE." 
02420 PRINT TABR(S) "WHEN THE DECK RUNS OUT OF CARDS THE DISCARDS 


02430 PRINT "SHUFFLED AND BECOME THE DECK. THE NUMBER OF CARDS I 
02440 PRINT "HAND ANID THE NUMBER OF CARDS IN THE DECK WILL BE KEP 


02450 FRINT “TRACK OF FOR YOU. GOOD LUCK." 

02460 PAUSE 10000:GOSUR 2500;RETURN 

02500 FOR I=1 TO 12¢FPRINT ¢NEXT I?RETURN 

02510 REM -THIS IS AGGIE’S STRATEGY 

02520 IF T<=1 THEN 2597 

02525 AY=0 

02530 FOR I[6=1 TO ALSIF MIDSCH$(OrTé6-1)2221)="2" THEN AQ=A9tI1 
02535 NEXT Ié 

02540 IF AY=0 THEN PRINT “I’LL DRAW" s Te "CARDS. "3GOTO 4000 
02550 IF A9=1 THEN AS8=INTC2XRNDIC1) > 

02555 IF A9=1 ANDI Al=1 THEN 1[6=1:GOTO 2575 

02560 IF A8=1 THEN PRINT “I’LL DRAW" Te "CARDS.":GOTO 4000 
02570 FOR I6=1 TO ALZIF MIUSCHE$(OrTé6—-1)9291)="2" THEN 25975 
02572 NEXT Ié 

O2575 IF MINS(H$(OrT6-1)9291)="2" THEN T=T+2 

02580 I[7=16-13A5$=H$ (OrT7) 

02582 FOR Z3=C9 TO SLtIF O¢Z3)=Z0COrT?7) THEN 2584 

02583 NEXT 23 

02584 0¢Z3)=0(09) $O(C9)=ZOCOrT7) FCA=C2-1LiCP=C9+1 

02590 FOR I3=I7 TO AL-LIH$(OsT3)=H$ (Or TSt1) NEXT 13 

02591 FOR I3=1I7 TO A1-12Z0COeT3)=ZO(COvT3+1)2NEXT 13 

O2592 FRINT "I’7LL FLAY "FASS SW6=1 

02593 FAUSE 1000 

O2595 AL=AL-12U$=AS$ > RETURN 

O2597 C=221IF MIDG(Its391)="0" THEN C=3 

02600 FOR Ié=1 TO Al 

02610 IF LEFT&(H$(OrT6-1)21)=LEFTS$ (091) THEN 2575 

02630 IF MIDS(H$(OrT 6-1) 9290-1) =MINS (Is 29C-1) THEN 2575 
02640 NEXT 164 

02641 FOR Ié=1 TO Al 
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PROGRAM NAME? CRAZY EIGHTS/HOYLE < CONT’D > 


O2642 IF MINSCHE(OrT 6-1) 9221)="8" THEN 2580 

02643 NEXT 164 

02650 T=1:3PRINT "I’LL DRAW" s Te "CARD. "iGOTO 4000 

02651 GOSUB 25003IF F#1 THEN FRINT “THE CARDS ARE SHUFFLED" $F=0 


02652 FRINT "NUMBER OF DISCARD NUMBER OF YOUR" 
02653 FRINT " AGGIE’S PILE CARNS LEFT HANI!" 
02654 FRINT "  CARIS IN DECK" 


ORESS PRINT "mmm me 


02660 FRINT TAB(2)¢A1$ 

024670 GI=INTCFI/7)21IF Pi/72G1 THEN Gi=Giti 

02680 FOR I8=1 TO Gi 

02685 G2=7 

02690 IF I8=G1 THEN G2=FPi~-(7xk(G1-1)) 

| 02695 G3=40 

| 02700 IF I8=2 OR I[8=4 OR I8=46 THEN G3=42 

| 02710 FOR I9=1 TO G2 

| 02720 IF I9=1 THEN K#=H$ (1s (7KCT8-1))4¢I19-1)) 

| 02730 IF 1921 THEN K#=K$4+"  "4H$C1s (7KCI8-1))4¢C19-1)) 
02740 NEXT I9 

02750 IF I8<G1 THEN PRINT TAB(G3)éKS 

02760 IF I8=G1 THEN FRINT TAR(G3) Ks 

02770 NEXT I8 

02780 FOR J=1 TO G3-164+LENCK$) PRINT CHRS(8)¢¢NEXT J 
02790 FRINT Liss 

O2792 IF Z9=1 THEN Z9=OfGOTO 2800 

02795 IF W6=1 AND MIDS(D$*s291)="8" THEN GOSUB 3000 
2797 IF Wé=1 AND MING(D$s291)="8" THEN FRINT " "SE Ss $0¢=E$1W6=0 
O2800 IF Al=1 THEN FRINT " ONE CARDS 

02803 IF Al=O THEN FRINT " I’M OUT"$ 

02810 PRINT TAB(27)¢n 

02812 IF Al=0O THEN Q=1tGOTO 4050 

02820 GOTO 350 

03000 E*QeLEFTé(H$(Or0) 91) 

O3010 IF Et="S" THEN ES="SPADES" 

O3020 IF E¢="H" THEN E¢="HEARTS" 

03030 IF E¢="0" THEN E¢="DTAMONDS" 

03040 IF Et="C" THEN E#="CLUBS" 

O3050 RETURN 
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04000 FOR [4=1 TO T 

04010 GOSUB 1000 

04012 ZOCOrAL+(1T4-1))=C 

04014 GOSUB 1O407H$(OrA14+ (14-1) )=S$4+NS 

04020 NEXT T4 

04030 AL=ALFTiT=O3Z9=1°GOTO 2651 

04050 IF Q=1 THEN FRINT “I HAVE WON HAND NUMBER" N2Q2=23Q6=P1:G0T 
QO 4070 

04060 IF Q=2 ANDI O=1 THEN PRINT "YOU HAVE WON HANI NUMBER" Ni Q2=1 
7Q46=Al 

04065 IF 0O=0 THEN FRINT "YOU IDNTDN’T SAY ONE CARD. YOU MUST DRAW" 
04067 IF O=0 THEN T=1¢W8=1iGOSUB 1400:GOTO 460 

04070 N=N+1 

04080 REM ~SCORING 

04085 IF Q2=1 THEN PRINT "AGGIE’S HAND" 

04090 FOR Q5=0 TO Qé6-1 e 
04095 IF Q2=1 AND Q5<Q46-1 THEN PRINT " "$H$(O9Q5)5 

04096 IF Q2=1 AND Q5=Q6-1 THEN PRINT " "#H#COrQ5) 

04100 Q$=MING(CH$(Q2-19Q5) 271) TRE=MID$(CHS(Q2—17Q5) ¥2%2) 

04110 IF Q#="A" THEN Q9=20 

04120 IF Q$="2" OR Q$="3" OR Q$="4" OR Q$="5" THEN Q9=5 

04130 IF Q¢="6" OR Q$="7" THEN Q9=5 

04140 IF Q¢="8" THEN Q9=30 

04150 IF Q$="9" OR R="10" OR Qt="J" OR Q$="Q" OR Q$="K" THEN Q9= 
10 

04160 ON Q2 GOSUB 430074400 

04170 NEXT QS 

04180 FRINT TAB(10)$"AGGIE’S SCORE"$TAB(45) ¢AGs"’S SCORE" 

04185 PRINT TABC1O) ¢°--—-—-- <--> F= "§TARCASYS "eee eee hee aie , 
04186 IF Nee? THEN PRINT "OLD SCORE" #TABC12)5L35TABC47)9L4 

04187 IF Ne>2 THEN PRINT “NEW SCORE" > 

04190 FRINT TABC12) §Q35TABC4A7) §$Q4 

04191 L3=Q33L4=Q4 

04192 IF Q3>=G OR Q4>=G THEN 4500 

04195 FAUSE 3000 

04200 GOSUR 2500¢F#1iCl=S2:C2=0 

04210 FOR [#0 TO Sisa¢I)=I3NEXT I 

04220 GOTO 163 

04300 Q4=04409 3 RETURN 
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FROGRAM NAME? CRAZY EIGHTS/HOYLE < CONT‘’D > 


04400 
04500 
04510 
04520 
04530 
04540 
04550 
04560 


Q3=Q3+Q9 > RETURN 

IF Q3>=G THEN FRINT "I HAVE WON BY"$Q3-Q4 

IF Q4>=G THEN FRINT "YOU HAVE WON BY"#Q4-Q3 

PRINT "IF YOU WOULD LIKE TO FLAY AGAIN» THEN TYPE ’RU‘" 
PRINT "AND FUSH RETURN. * 

FRINT “I HAVE ENJOYED PLAYING WITH YOU." 

IF Q3>=G THEN FRINT "MAYBE NEXT TIME YOU WILL WIN," 

END 
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FROGRAM NAME: 


DICE GAME/BOWES 


00010 PRINT tFPRINT ¢FRINT "DICE GAME #4.08.00. 6/19/78" 

00012 PRINT "WRITTEN BY ALAN BOSE" 

00014 FRINT “ADVERTISING DEFT." 

00016 PRINT "HEATH COMPANY" SPRINT 

00020 DIM 06174) 208295) vO$( 324) NSCS) 9 TOS 2S) 9S05) xS205) 9S3(10) oN 
(3) 

00040 REM DICE FATTERNS 

00050 [$(090)="! I"sOSC1L,O="! kK ISDS 2rO)="! ee 

00060 DS(Ov1)="!x P'sOs¢dy1)="! 1"3D$(2r1)="! x!" 

00070 DS(Or2)="! KI"30$C1y2.="! kK I" SN$(2r2)=" 1k tal 

00080 DS(Or3)=" 1x K!"30SC1lx»3)="! P"30S$C2e5)=" Ik x!" 

00090 DS(Or4)=" 1k KI"SOSCLr4o="! kK ISS 224)=" Ik x!" 

00100 [S(Or5)="1xk KI" SOSC Ly Sd=" 1k KI" SNSC2e5.="'k x!" 

00110 REM SET GAME*sENTRY LEVEL AND) SCORING TABLE 

00120 T2=50003F2=400 

00130 FOR A=O0 TO SiT(OvAd=O3 TC19Ad=03 TC 2rA)=O3NEXT A 

00140 T(1%0)=1003T(194)=503T(270)=2003T(294)=100 

00150 FOR A=3 TO SiT(Ar1)=2002T(Ar2)=3003T (A235) =4002T (AxS) =46003 NE 
XT A 

00160 T(370)=10003T(420)=11002T(570)=1200 

00170 T(374)#5003T(494)=5503T(5%4)=600 

00173 LINE INFUT "D0 YOU NEED THE INSTRUCTIONS? (Y OR ND "“sY% 
00176 PRINT 3IF Y$="N"*" THEN 390 

00180 PRINT “INSTRUCTIONS? "SPRINT SPRINT 

00190 FRINT "THE OBJECT OF THE GAME IS TO ROLL THE DICE ANTI TALLY 
MORE" 

00200 FRINT “POINTS THAN YOUR OPFONENTS. A ’1’% IS WORTH 100 FOINT 
Sy» ANTI" 

00210 PRINT "A °S% IS WORTH SO POINTS. ALL OTHER NUMBERS ARE WORT 
H NOTHING" 


00220 FRINT 
T 

00230 PRINT 
ALL * 

00240 FRINT 

Deke 

00250 FRINT 
IND" 

00260 FRINT 


“UNLESS YOU ROLL A THREE-~OF~A-KIND ON ONE ROLL." 2FPRIN 


"FOR THREE-OF-A~KINUS» 1°S ARE WORTH 1000 FOINTS AND 


"OTHERS ARE WORTH 100 TIMES [HE “NUMBER’ OF THE DICEs 


"THREE 2°S EQUAL 200 FOINTS. REMEMBER» A THREE-OF-A-K 


"ONLY COUNTS WHEN ACHIEVED ON ONE ROLL OF THE DICE!" 
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FROGRAM NAME? DICE GAME/BOWES < CONT‘D > 


00270 
00280 
IND» " 
00290 
E ARE" 
00300 
00310 


OU WHAT YOU" 


00320 


YOU FOINTS,." 


00330 
WHAT" 
00340 


ORE FOINTS." 


00350 


FRINT 
FRINT 


PRINT 


FRINT 
FRINT 


PRINT 
FRINT 
FRINT 


PRINT 


THAT TURN!" 


00360 
00370 
7s 
00380 
00390 
u." 
00400 
00410 


FRINT 
PRINT 


FRINT 
PRINT 


PRINT 
INFUT 


*+PRINT "CONTINUED? "PAUSE tFRINT {PRINT 
"IF YOU SHOULD ROLL A FOUR-OF-A-KIND) OR A FIVE~OF-A-K 


"THE THREE-OF~A-KIND IS TALLIED AND THE REMAINING DIC 


"SCORED INDIVIDUALLY (1=100» S=S0O» OTHERS=0)."F RINT 
"YOULL START WITH S DICE ON EACH TURN. I WILL SHOW Y 


"HAVE ROLLED» YOUR FOINTS AND WHICH DICE HAVE SCORED 
“YOU WILL THEN HAVE THE CHOICE OF SITTING TIGHT WITH 
"YOU HAVE» OR ROLLING THE REMAINING DICE TO TRY FOR M 
“HOWEVER»s IF YOU ROLL “ZIP’ YOU LOSE YOUR FOINTS FOR 


sPRINT "CONTINUED S"SFAUSE SPRINT {PRINT 
"IF AT ANY TIME YOU SCORE WITH ALL FIVE DICE» YOU MUS 


"ROLL ALL FIVE DICE AGAIN. "? PRINT 
"GAME IS "sT25" POINTS. ENTER O IF THIS IS OK WITH YO 


"OTHERWISEs ENTER YOUR OWN AMOUNT. "3FRINT 
“GAME? "sT3 


00420 IF T320 THEN T2=T3 


00430 
00440 
0 IF* 
00450 
NT." 
00460 


PRINT 
ERINT 


PRINT 


FRINT 


“THIS GAME WILL BE TO "sT2s" FOINTS. "PRINT tPRINT 
"YOU WILL NEED "“sP2%" POINTS TO ENTER THE GAME. ENTER 


"THIS IS SATISFACTORY. OTHERWISE» ENTER YOUR OWN AMOU 


*INFUT "FOINTS NEEDED TO ENTER? "sP3 


00470 IF F320 THEN Fa=F3 


00480 
T sPRI 
00483 
00486 
00490 
00492 
ES." 


00494 


PRINT 
NT 

INFUT 
PRINT 
PRINT 
PRINT 


FRINT 


"YOU WILL NEED "sP2s" FOINTS TO ENTER THE GAME. "?FRIN 
"ENTER A RANDOM NUMBER. "3V 

SPRINT ¢X=RNIIC-V) 

"UF TO SIX FEOPLE CAN FLAY." 

"ITF YOU WANT ME TO PLAY» ENTER H8 AS ONE OF THE NAM 


"ENTER YOUR NAMES NOW, "PRINT 
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FROGRAM NAME? DICE GAME/BOWES = CONT’ 


00500 
OOS10 
00520 
00525 
00530 
00532 
00534 
00538 
00340 
00550 
00570 
00580 
00590 
00600 
00610 
00615 
00620 
00630 
ET 

00640 
00650 
006460 
00665 
00670 
00680 
00690 
00700 
00710 
00729 
00730 
00740 
00750 
00749 
00779 
00780 
00790 
00800 
00810 
00820 


FOR M1=0 TO 3 
LINE INFUT “NAME? "SNSCMI) 
IF N&#(M1) > " “ THEN NEXT M1 


D> 


PRINT {PRINT “ALL RESPONSES WILL BE ’Y’ OR ’N’."3PRINT 


FOR U=O TO Mi~1 


IF N#(U)="H8" THEN H=1iiGOTO S38 


H=O3GOTO S40 


PRINT {PRINT "MY TURN. HERE I GO!":GOTO 570 
FRINT $PRINT "YOUR TURNy "“sNSCUD 9". " 


PRINT "HERE WE GO!!!" 


PRINT SPRINT ¢FRINT ?PRINT ¢PRINT SPRINT 


R=O3 REM 


FOR A=O TO 420¢19A=O308 (SrA =" 


REM START ANOTHER ROLL 
R=R+liFOR A=O TO S3NCA)=O2NEXT 
PRINT "xXx ROLL DICE Xxx "¢ 
FOR Di=0 TO 4; REM 
IF [file 0d)420 THEN 6703 REM 


X= INT CLOXRNIDCS ) 

IF X*=4& THEN 640 

Ov 01) =x 

FRINT " "s01+i9 

NEXT D1 

FOR A=O TO 43 REM 
IF D¢19A)20 THEN 710 

NCDCOvA ENCICOrA) +1 


NEXT A 

FOR A#O TO Ss REM 
S$CA=TONCA) vA) 291=S14S (CA) SNEXT 
IF N(1)2£3 THEN NC1)=03 REM 
IF NC(2)23 THEN NC2)=0 


IF N(3)23 THEN N(3)=90 

IF N(S)23 THEN NOS)=0 

IF N¢CL)53 THEN NC1)=33 REM 
IF N(2)23 THEN N(2)=3 

IF N(3)>3 THEN N(O3)=3 

IF N(S)23 THEN N(S)=3 

FOR A=O TO 4 


4 = To? 


CLEAR DICE FOR NEXT ROLL 
"SNEXT A 


A 


XKKXTHE ROLL XXX 


IF THE DIE HASN’T BEEN ROLL 


COUNT # OF EACH DICE 


SCORE EACH # ROLLED 
ASS3CR)=S1 
LESS THAN 3-OF~-A-KINDD 


MORE THAN 3-OF-A~KIND 


PROGRAM NAME? DICE GAME/BOWES <= CONT‘D = 


00830 IF N(DCOvA)) > O THEN 860 

00850 GOTO 930 

00860 IF DIi¢irA)=1 THEN 930% REM UNDERLINED BEFORE? 
00870 NCDCOrA) ENCOCOrvA)  -1LENCL AHL 


00880 IF R=1 OR R=6 THEN 0$(37A) = "OKKKXKK" 

00890 IF R=2 OR R=7 THEN 0$(3/A)="s=e=e==" 

00900 IF R=3 OR R=8 THEN O$(3rAd="+t+++44+" 

00910 IF R=4 OR ina THEN O$ (3A) #8 eee eee . 

00920 IF R=5 OR R=9 THEN O8 (3A SITTIN 

00930 NEXT A 

60940 FOR A=O TO 43 REM LOAD OUTPUT ARRAY 


00950 FOR B=0 TO 2 
00960 OF (ByA=D6(Bs0(OrA)) SNEXT BINEXT A 
00961 FRINT ¢$PRINT 


00970 FOR A=0 TO 3: REM OUTFUT "DICE" 
00980 PRINT O$(Ar0)+" "408CAr 1+" "408 (Axy2)+" "408 (A 3)+ 
a "40% (A¥4) 


00990 NEXT A 

O1000 IF S3(R)=S3(R-1) THEN 1090 

01010 IF SisP2 AND $2(U)=0 THEN 1030 

01020 GOTO 1120 

01030 IF He>1 THEN 1040 

01032 PRINT {PRINT {FP RINT "I NEED"sF2¢"FOINTS TO ENTER THE GAME." 
01034 FRINT "I NOW HAVE"$S13"FOINTS SHOWING...I MUST ROLL AGAIN... 
+"$GOTO 1060 

01040 PRINT tP RINT {PRINT N&(U)t"» YOU NEED"SP2¢"FOINTS TO ENTER 
THE GAME. " 

01050 FRINT "YOU NOW HAVE"#S1¢"SHOWING...YOU MUST ROLL AGAINe++" 
01060 FRINT "HERE WE GO!!!" 

01070 F=OtFOR A=O TO 4¢P=F40(1leA)INEXT ASIF F#S THEN 590 

01080 GOTO 610 

01090 FRINT 

01095 IF H=1 THEN PRINT “OOFS! I LOST THAT ONE! "SPRINT *PAUSE 500 
$GOTO 1300 

01100 FRINT "SORRY,s "4+N$(U)+"» YOU LOST THAT ONE. BETTER LUCK N 
EXT TIME" 

01110 FRINT ?GOTO 1300 

01120 F=OIFOR A=O TO 43IF DC1rA)<0 THEN DCivA)=0 

O1121 P=P+iCiyA) {NEXT ASIF P&S THEN 1180 
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PROGRAM NAME? DICE GAME/BOWES < CONT‘D > 


01125 FRINT ¢PRINT 

01130 IF H=1 THEN FRINT Sis"FOINTS! BOY» I’M HOT! HERE I GO AGA 
IN! "3GOTO S90 

01140 PRINT "GOOD GOING, "+N$CUD4+"!!! YOU HAVE "$S13" FOINTS! 
ROLL ON!!!" 

01170 GOTO 390 

O1180 FRINT $FPRINT $IF He>1 THEN 1199 

01182 PRINT “I CAN SIT TIGHT WITH"#S1s"FOINTS: OR I CAN ROLL AGAI 
Ne "SFAUSE 500 

01183 IF S2(U)=0 AND S1>=P2 THEN PRINT "I’LL STAY WITH"$S1fPAUSE 
JO03GOTO 1270 

01184 IF S1+S2¢(U)<T2 THEN IF Si<=100 AND FS2 THEN 1186 

01185 PRINT "I’LL STAY WITH" #S1¢ "POINTS. "PAUSE SO0OfGOTO 1270 
01186 FOR A=0 TO 421IF D1isA)<>41 THEN N(DCOrA))=NCDCOrA) 41 

01187 NEXT ASFOR A=S TO 1 STEF -13IF A<=4 THEN IF N(A)=2 THEN 119 
0 

O1189 NEXT ASPRINT "“I’LL ROLL AGAIN! "GOTO 610 

01190 IF AkCLOXRNDC1))<=15 THEN PRINT "I’LL ROLL AGAIN. "{GOTO 610 
O1191 PRINT “I’LL SAVE THE TWO" FAtLTSCHRS(8)5"°S"5 

01192 PRINT " AND TRY FOR A THREE-OF~A-KINDI. "$PAUSE 500 

O1193 FOR Z=O TO 423IF COZ) =A THEN DC19Z)=—1 

01194 NEXT ZiGOTO 610 

01199 IF Fe=3 THEN 1210 ’ 

01200 PRINT N@CU)+"» YOU CAN ROLL THE REMAINING DIE» OR*"{GOTO 122 
0 

O1210 PRINT N#(U)+"» YOU CAN ROLL THE REMAINING DICE, OR" 

01220 PRINT "YOU CAN SIT TIGHT WITH "$S15" FOINTS. "fF RINT 

01230 LINE INFUT "ROLL AGAIN? (CY OR N) "$Y 

01240 IF Y$="N" THEN 1270 

01241 IF Y#e>"Y" THEN 1230 

01242 IF P=3 THEN 610 

01244 FOR A=O TO 421F DCivA<>1 THEN NCDCOrA))=NCDCOvA))F4 

01245 NEXT AtFOR A=S TO 1 STEF ~-1$IF A<>4 THEN IF N(A)=2 THEN 124 
7 

012446 NEXT ASGOTO 610 

O1247 PRINT "DO YOU WANT TO SAVE THE TWO"A+13CHR$(8)3"'°S"3 

01248 FRINT " AND TRY FOR THREE~OF~-A—KININ" 3 

01249 LINE INPUT "? "$Y$3IF Y¢="N" THEN 610 

01250 IF Y$e>"Y" THEN 1249 
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PROGRAM NAME? DICE GAME/BOWES <= CONT‘’D = 


01251 FOR Z=0 TO 4¢IF 0¢09Z)=A THEN D¢19Z)=-1 

01252 NEXT Z:GOTO 610 

01260 GOTO 1230 

01270 PRINT PRINT SPRINT {PRINT ¢PRINT ? PRINT 

01280 FRINT $FRINT ¢PRINT $PRINT ¢PRINT 

01290 $2(U)=S2(U)+S1 

01300 S$1=03FOR W=0 TO Mi-1 

01310 FRINT “ "§NSCW)FTABCL2KCWH1) 5 NEXT WSPRINT 

O1320 FOR A=O TO MI-LIPRINT S2CA)#TABCL12K(AtL))#SNEXT ASPRINT 
01330 IF S2(U)2=T2 THEN 1352 

01340 NEXT U 

01350 GOTO 530 

01352 IF He>1 THEN 1360 

01354 PRINT tPF RINT “SORRY FOLKS» I WON THIS ONE WITH"#S2(U)+"FOIN 
TS." 

01355 GOTO 1380 

01360 PRINT SPRINT "XXXCONGRATULATIONSKXX" 

01370 FRINT {PRINT N$(U)4+"» YOU HAVE WON WITH "#S2(U)#" POINTS!" 
O1380 PRINT {PRINT {LINE INFUT “WOULD YOU LIKE TO PLAY AGAIN? "#Y 
$ 

01390 FRINT {PRINT $72=5000tF2=400:FOR A=O TO M1-1iS2(A)=ONEXT A 
01400 IF Y#="Y" THEN 390 

01410 FRINT "SO LONG. SEE YOU LATER AT THE CRAPS TABLE." 

01420 END 


*? 
rd 
oe 
oo 
oe 
+ 
oe 
oe 
7 
7 
oe 
+e 
77 
7+ 
? 
od 
dad 
cad 
oad 
+ 
of 
oo 
od 
oe 
+ 
oe 
oe 
7 
+ 
* 
oe 
* 
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FROGRAM NANE? SLOT MACHINE/KYLE 


00001 REM FROGRAMER? THOMAS C. KYLE 

00002 REM 44600 FRANKLIN AV 

00003 REM WESTERN SPRINGS: IL 60558 

00005 REM 

00006 REM FROGRAM TITLE? / SLOT MACHINE / PLAY IS FROGRAM I 
NSTRUCTED 

00007 REM 

00008 REM RUNS ON H8 COMPUTER 

00009 REM 

00010 REM USES ABOUT SK OF MEMORY 

00011 REM EXTENDED BeH. BASIC--VERSION 10.01.01 

00012 REM 

00013 REM 

00020 FOR X=1 TO 143 PRINT sNEXT X 

00040 FRINT TABCIS)"> > > > > & LOT MACHINE fe << 
00050 FRINT 3FRINT PRINT sFRINT $FRINT "THIS IS A $10 SLOT MACHT 
NE" 


00052 PRINT ¢FRINT "THE WINNING COMBINATIONS & FAYOFFS ARE?" 

00054 FRINT ¢FRINT "3 GOLD BARS" yy» "$2000" 

00056 FRINT "2 BARS & 1 GOLD BAR"» "$1000" 

00058 FRINT "3 BELLS"s»"$ 180" 

00060 FRINT "2 BELLS & 1 GOLD BAR" »"%$ 180" 

00062 FRINT "3 PLUMS"»»"$ 140" 

00064 FRINT "2 PLUMS & 1 GOLD BAR"s"$ 140" 

00066 FRINT "3 ORANGES"yy"% 100" 

000468 FRINT "2 ORANGES & 1 GOLD BAR"»"$ 100° 

00070 FRINT "2 CHERRIES & ANYTHING" s"# SO" 

00072 FRINT “1 CHERRY & 2 ANYTHING"y"# 20" 

00075 Z=0 

00080 FRINT ¢PRINT TABC6)¢3L INE INFUT "READY TO PLAY ? "sAS$?GOSUB 
1200 

00090 IF Z=1 THEN 70 

00100 IF LEFTS(A$y1)="N" THEN 1040 

00120 FRINT ¢FRINT “HOW MUCH ARE YOU WILLING TO RISK?" 

OO129 REM 2oo> LIMITS BANKROLL wees 

00130 FRINT "($10 TO $100)—-~—"% 

00135 INFUT ""3 

00138 IF M210 OR M>100 THEN 130 

00140 M9=MSIF INTOM9/10)-(M9/10)220 THEN PRINT “INCREMENTS OF 10% 
PLEASE"3GOTO 130 
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00150 FRINT ¢PRINT “TO DEPOSIT YOUR BILL» TYFE ~Y~-" 

00155 PRINT "TO FULL THE HANDLE» TYPE -RETURN~-" SPRINT 

00160 M1l=M2Z1=0 

001465 Z=0 

00170 FRINT TABCBSSLINE INFUT "READY TO GAMBLE ? "sA$?GOSUB 1200 

00175 IF Z=1 THEN 1645 

00180 IF Z1=0 THEN 1140 

00200 IF LEFT#é(A¢e1l)="N" THEN FRINT +:GOTO 1000 

00210 M=M~-10 

00220 G1=02G2=0?G3=02B1=02 B20 F1=0¢P2203P3=0 

00230 01=0%02=0703=03C1=02C2=0 201020200302 T1=0 

00240 FOR [=1 TO 3 

00245 N& INT CS7KRNIVCL) O41 

00250 Til=I 

00255 ON Tl GOTO 246092959335 
2 


wy 00257 REM ->-o-> WHEEL #1 te 
OR N=SO OR N&SS THEN 400: REM o> 


00260 IF N=2 OR N#13 OR N=4 
RAR <i 

00265 IF N=é OR N=? OR N=18 OR N#49 THEN 4203 REM ti 
PLUM << 

00270 IF N=3 OR N=15 OR N=30 OR N=35 OR N=45 THEN 4402 REM ce" 
ORANGE << 

00275 IF N=4 OR N#11 OR N=14 THEN 460% REM 
CHERRY << 

00280 IF N=1 THEN 480% REM 232 
BELL <<< 

00285 IF N=10 THEN 505? REM 
GOLD BAR <<< 

00290 GOTO 245 

00293 REM ~2-e<» WHEEL #2 <-¢-<~ 

00295 IF N=17 OR N=28 OR N=36 THEN 400: REM lo 
BAR << 

00300 IF N=7 THEN 420% REM bo 
PLUM <<< 

00305 IF N=8 THEN 440 REM 2c 
ORANGE <<< 

00310 IF N=S OR N=12 OR N=26 OR N#41 OR N#=47 THEN 460 REM o> 
CHERRY <<< 

00315 IF N=21 OR N=24 OR N=25 OR N=29 OR N#=32 THEN 480! REM =>> 


BELL << 
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FROGRAM NAME? SLOT MACHINE/KYLE 


00320 IF N=39 OR N=40 OR N=446 THEN 480; REM >>> 
BELL <<< 

00325 IF N=37 THEN SOS: REM ooo 
GOLD BAR was 

00330 GOTO 245 

00333 REM ->->-> WHEEL #3 <~-<-<- 

00335 IF N=16 OR N=20 OR N=S1 THEN 420: REM 33> 
PLUM <<< 

00340 IF N=19 OR N=33 OR N=38 OR N=48 OR N#=S2 THEN 4403 REM 3>> 
ORANGE a= 

00345 IF N=56 THEN 480; REM i> 
BELL <a 

00350 IF N=22 OR N=23 OR N=27 OR N=31 OR N=34 THEN 500; REM 3>> 
LEMON <<< 

00355 IF N=43 OR N=44 OR N=53 OR N=54 THEN 500? REM 3 
LEMON a= 

00360 IF N=57 THEN SOS: REM 3o> 
GOLD BAR === 

00365 GOTO 245 

00400 FRINT TABR(15)"*--~-BAR--~-"tIF I1=1 THEN B1l=1:GOTO S20 


00405 
00410 
00420 
00425 
00430 
00440 
00445 
00450 
004640 
00465 
00470 
00480 
00485 
00490 
00500 
0050S 
00510 
OOS1S 
00520 


IF Ti=2 THEN B2=1:3GO0TO S20 

GOTO S20 

PRINT TAB(15) "----PLUM-~---"f2IF I1=1 THEN P1i=1:GOTO S20 
IF Ii=2 THEN P2=1°GOTO 520 

F3=13G0TO 320 

PRINT TABC1S) “----ORANGE--~~"fIF T1=1 THEN O1=1°GOTO S20 
IF T1=2 THEN O2=1?2GO0TO 520 

03=13G0TO S20 

PRINT TAB(15) "~---CHERRY-~-~"3IF I1=1 THEN C1=1:GOTO S20 
IF I1=2 THEN C2=1:3GOTO S20 

GOTO S20 

FRINT TARC1S) "----BELL-~--~"3IF I1=1 THEN 01=13GOTO S20 
IF Ti=2 THEN D2=13G0TO 320 

0N3=13GOTO S20 

PRINT TARC1S) *----LEMON-~-~"3GOTO S20 

PRINT TABC1IS)"-~--GOLD BAR----"3IF T1=1 THEN Gi=1:GOTO S20 
IF I1=2 THEN G2=1:3GOTO S20 

G3=1 

NEXT I¢FRINT 
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mo OR Pe 


SLOT MACHINE/KYLE <= CONT’D > 


fos 


00540 IF G14G2+G3=3 THEN M2=20002M=MtM2:GOTO 800 

00560 IF Bitk2+G3=3 THEN M2=10003M=MtM2:GOTO 8460 

OOS80 IF U1t02+03=3 OR D1+t02+G3=3 THEN M2=1802M=M4+M2:GOTO 840 
00600 IF FItF2+F3=3 OR FAtP2+G3=3 THEN M2=140°M=MtM2:GOTO 8460 
00620 IF 01402+03=3 OR 014024G63=3 THEN M2=1802M=M+M2:GOTO 860 
00640 IF C1l4C2=2 THEN M2=SO?M=M+M2:GOTO 860 

00660 IF Ci=1 THEN M2=20?M=M+M2:GOTO 8640 

00740 PRINT i?PRINT TAB(10)"L OS E R* 

00760 IF Mi=0O THEN 900 

00780 GOTO 8890 

00800 FOR X=1 TO 14¢PRINT CHRE(7)2NEXT X 

00820 FRINT "J ACKFOT!!! JACKPOT!!! JACKE 
OT? i" 

00840 PRINT $FRINT "YOU WON $"3M23FPRINT ?GOTO 880 

00860 PRINT TABC1S5)"LUCKY» LUCKY. YOU WON $"sM2¢PRINT 

00880 FRINT TAR(12)"YOU NOW HAVE $"¢MSPRINT ¢GOTO 165 

00900 PRINT SPRINT "YOU HAVE LOST ALL YOUR MONEY" 

00920 FRINT "THAT SHOULD TEACH YOU NOT TO GAMBLE" 

00930 Z=0 

00940 FRINT tLINE INFUT "IS THERE ANOTHER SUCKER ? "sA$:GOSUR 120 
0 

00950 IF Z=1 THEN 9390 

00960 IF LEFT&(Ats1)="N" THEN 1150 

00980 CLEAR :GOTO 70 

01000 IF M<M1 THEN FRINT "YOU LOST $"¢M1-Ms"OF YOUR $"sM1s"STARTI 


NG BANKROLL" 


61010 IF M<M1 THEN PRINT 
01015 IF M=M1 THEN PRINT 


"GOTO 1060 
01020 FRINT 
1 
01030 PRINT 
ornns" -GoOTO 
01040 FRINT 
O1050 Z=0 
01060 FRINT 


$ 
01080 
01090 


GOSUE 


"TOUGH LUCK":GOTO 930 
"YOU BROKE EVEN. DOESN’T HELF MY ECONOMY 


"YOU WON $"5M-M1s "OVER YOUR STARTING BANKROLL OF $*°5M 


"THE FROGRAMMER IS TOO GENEROUS. HE SHOULD NARROW THE 


1940 
tFPRINT 


"YOU ARE MOST WISE FOR NOT PLAYING AT ALL" 


{LINE INFUT "ANYONE ELSE WANT TO TRY THEIR LUCK ? "3A 


1200 


IF Z=1 THEN 1050 


199 


PROGRAM NAME? SLOT MACHINE/ZKYLE <= CONT’D > 


01100 IF LEFT#(Aty1)="N" THEN FRINT {PRINT "NO SFORTING BLOOD" {ST 
OF 

01120 CLEAR ¢GOTO 75 

01130 FRINT 

01140 FRINT “YOU’VE CHANGED YOUR MIND. THAT’S THE SMART THING TO 
HO"? GOTO 1050 

01150 FRINT 

01160 FRINT "NO MORE SUCKERS?? MAYBE THERE’S A GAMBLER THAT WANTS 
TO FLAY" 

01170 GOTO 1050 

01200 IF LEFT#(Agy1)="Y" THEN Z1=13 RETURN 

01220 IF LEFT#&(A$*s1)="N" THEN RETURN 

01240 FRINT "PLEASE ANSWER Y OR N"3Z=13RETURN 
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00001 REM FROGRAMMER $ THOMAS C. KYLE 

00002 REM 4600 FRANKLIN AV 

00003 REM WESTERN SPRINGS» IL 60558 

00004 REM 

00005 REM PROGRAM TITLE? O00 OR EVEN GAME 

00006 REM RUNS ON H8 COMPUTER 

00007 REM 

00008 REM SHOULD RUN IN ABOUT SK 

00009 REM EXTENIED BeH. BASIC-VERSION 10.01.01 

00010 REM 

00011 REM 

00012 REM 

00020 PRINT "XKKKKKKKKKKKKKKKKK HOW WELL DO YOU GUESS?P?P kkKKKKKKK 
AO OOK KKK” 

00040 FRINT 

000460 FRINT TABC10)"THIS IS A GAME TO TEST YOUR GUESSING SKILL" 
00080 FRINT 

00100 FRINT TABRCIS) "THERE ARE TWO WAYS TO FLAY THIS GAME" 

00120 FRINT 

00140 FRINT “#1-YOU CAN BET ON WHETHER OR NOT A NUMBER I SELECT A 
TT? 

00141 FRINT " RANDOM WILL COME UP EVENy OR=<-<<<<<=-=" 

00160 FRINT 

00180 FRINT "#2-YOU CAN DECIDE FOR YOURSELF IF THE RANDOM NUMBER" 
00181 FRINT " WILL COME UF O00 OR EVEN" 

00182 FRINT 

00189 REM 

OO190 REM XXXKK SELECT THE GAME. G=GAME SELECTED XXKKx 

00191 REM 

00220 FRINT TARC1O) "TYPE 1 FOR GAME #1 OR 2 FOR GAME #2-~"% 
00221 INFUT G 

00222 REM 3OOOOOOOOOOKk CHECK FOR FOUL PLAY OOOO OOKIOKxK 

00223 IF Ge=0 THEN 220 

00225 IF Gr=3 THEN 220 

00230 FRINT 

00240 FRINT "WE’LL GET TO THE GAME IN A MINUTE" 

00260 FRINT 

00265 REM 

00270 REM XKKKK ASN IF THE WANT TO SEE FERCENTS=Al XXKKKKKX 
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00275 REM 

00280 PRINT “IT IS SATO THAT A COIN WILL COME UF HEADS OR A NUMBE 
Rk" 

00281 PRINT "WILL COME UF EVEN ABOUT S0O% OF THE TIME." 

00300 PRINT "WOULD YOU LIKE TO SEE IF THIS IS TRUE OR IF I" 
00301 FRINT "HAVE THE GAME RIGGED?" 

00302 FRINT 

00303 PRINT TABC1O)"TYFE 1 FOR YES OR 2 FOR NO-~"> 

OO310 INFUT Al 

00311 REM OOOO CHECK FOR FOUL PLAY OK KOKKKKKX 

00312 IF Al*=0 THEN 303 

00314 IF Al>=3 THEN 303 

00316 REM 

00317 REM *xkxXx IF ANSWER=1 GO TO FERCENT SUB ROUTINE *xxx 
00318 REM 

00320 IF Al=1 THEN GOSUB 2000 

00321 PRINT 

00330 REM 

00331 REM oOOOKKKxkK IF ANSWER=2 GO TO FLAY OF GAME SELECTED *xxxx 
2K KK KKK 

00332 REM 

00340 FRINT "OK» NOW FOR YOUR MONEY. EXCUSE ME» I MEAN GAME" 
00341 PRINT "LET ME CHECK. YES» YOU PICKED GAME #°¢G 

00355 PRINT 

00360 PRINT “WHAT’S THE TOTAL AMOUNT OF MONEY YOU "¢ 

00361 INPUT "ARE WILLING TO RISK? #"5X ¢ X1=X 

00370 FRINT 

00374 REM 

00375 REM 2OOOOOOOOOOOK CHECK FOR FOUL PLAY OOOO OOOO ORK KKK 
00376 REM 

00380 IF X<=0 THEN 400 

00385 IF X=1000 THEN 420 

00390 GOTO S20 

00400 FRINT "IF I TRY TO CALCULATE YOUR BET USING $"5xX 

00401 FRINT "I WILL GO AROUND IN CIRCLES. TRY AGAIN." 

00410 GOTO 355 

00420 FRINT "SORRY: THE HOUSE LIMIT TS #1000." 

00430 GOTO 355 

00435 REM 
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00440 REM XOOOKKKXXXK GO TO THE CORRECT GAME ROUTINE XxXXKKKKKKKKX 
00445 REM 

00520 IF G=1 THEN FRINT "YOU DECIDED YOU CAN OUT-GUESS ME ON EVEN 
NUMBERS * 

00530 IF G=1 THEN 380 

00531 FRINT 

00540 IF G=2 THEN 3000 

00560 FRINT 

O0%62 REM 

00564 REM XXXKKKK START OF GAME 1 ROUTINE XXXKXKKKX 

00566 REM 

OOS79 FRINT 

OOS580 IF G=1 THEN FRINT “IF YOU THINK IT WILL BE ODD» BET 0 (ZERO 
> i 

00600 FRINT "IF YOU WANT TO END THE GAME» TYPE ~9999 FOR YOUR RET 


00601 FRINT 

00700 REM 

00705 REM OOOO HOW MUCH WILL THEY BET? Y=BET XxXXKKKKKKKX 
00710 REM 

00720 FRINT "HOW MUCH OF YOUR $"5X3 

00740 INPUT “WILL YOU BET? $*°5Y 

00745 REM 

00750 REM X*XKKKKK SEE IF THEY WANT TO END GAME XXXXKKKKX 
00755 REM 

00760 IF Y=-9999 THEN 1260 

00765 REM 

00770 REM (OOOOROKKKXK CHECK FOR FOUL PLAY XXKKKKKKKKKKKX 
00775 REM 

00780 IF YoX THEN 840 

00820 IF Ye=-1 THEN 920 

00823 FRINT 

00824 REM XKKKKKK IF PLAYING GAME 2 XXXXKKKKKKKK 

00825 IF G=2 ANI) Y=O THEN PRINT "CAN’T BET ZERO IN THIS GAME" 
00827 IF G2 ANDI Y=O THEN 601 

00830 IF G=i THEN 1000 

00835 IF G=2 THEN 3020 

00840 FRINT 

00860 FRINT "YOU CAN‘’T BET MORE THAN YOU HAVE, WISE GUY!!" 
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OOB8O 
QOP00 
OOF20 
00940 
00960 
00980 
00990 
01000 
O101G 
OL020 
01030 
01040 
O19050 
01069 
01070 
01080 
01096 
O1L100 
O1L1L1¢6 
OL120 
01130 
O1140 
O1L1460 
011462 
01164 
O1L179 
O1180 
O1L1L9O 
O1200 
OL210 
01220 
01230 
O1L240 
01250 
012460 
012465 
01270 
01271 


PRINT 

GOTO 720 

PRINT 

PRINT "YOU CAN’T BET NEGATIVE DOLLARS» TURKEY!!!" 
PRINT 

GOTO 720 

IF G=2° THEN 3040 

PRINT 

B= INTCRNDCL)€100) 

IF B=O THEN 1010 

C=B/2 

Q=C-INT CC) 

IF 020 THEN 1300 

IF Y=0 THEN 1320 

PRINT “CONGRATULATIONS!!! THE NUMBER SELECTED WAS "$k 
PRINT 

X=X~¥ 

X= (YRKQ)4X 

PRINT "YOU HAVE DOUBLED YOUR BET AND NOW HAVE "4X 
PRINT 

IF Gel THEN S8O 

IF G=2 THEN 600 

PRINT “SORRY: THE NUMBER SELECTED WAS "38 

IF G=2 AND A=1 ANI UO THEN PRINT "YOU PICKED op" 
IF G=2 AND A=0 AND De. THEN PRINT “YOU PICKED EVEN" 
PRINT 

PRINT "YOU HAVE LOST YOUR BET ANID NOW HAVE $"9X 

IF X<=0 THEN 1240 

IF Gel THEN $79 

IF G=2 THEN 600 

RINT 

PRINT "YOU HAVE RUN OUT OF MONEY. COME BACK SOON WITH MORE. 


GOTO 1279 

PRINT 3IF X=X1 THEN FRINT “YOU LOST #"¢Xi-x: GOTO 1280 
IF X=X1 THEN PRINT "YOU BROKE EVEN“ ¢ GOTO 1280 

PRINT 

PRINT "YOU HAVE WON #"°9X=X1. 
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01275 
01279 
01280 
01290 
01300 
01303 
01310 
01320 
01330 
01400 
02000 
02001 
02002 
02030 
02040 

2041 
02042 
02044 
02045 
02050 
02051 
02052 
02054 
02056 
02080 
02100 
02120 
02130 
02140 
02160 
02180 
02200 
O2220 
02240 
02260 
02280 
02300 
02320 
02340 


O00 EVEN/KYLE «< CONT‘’D > 


PRINT "I’M JUST TOO EASY!!!" 

FRINT 

PRINT "HOFE YOU HAD SOME FUN. BYE FOR NOW." 

GOTO 1400 

IF Y=O THEN PRINT “LUCKY» LUCKY! ! THE NUMBER WAS "3B 


IF Y=0 THEN 1160 


IF G=1 THEN 579 

PRINT "YOU SHOULD) HAVE BET. THE NUMBER WAS "3B 

IF G=1 THEN S79 

STOF 

PRINT 

FRINT "FOR EVERY SO RANDOM NUMBERS GENERATED BY ME» 


FRINT "SHOW THE FERCENTAGE OF ODD AND EVEN" 
PRINT 

PRINT "HOW MANY RUNS WOULD) YOU LIKE TO SEE?" 
PRINT TABC1O)"(BETWEEN 1 AND 10)-~"3 


INFUT Q 

IF Q*=Q THEN 2041 
IF Q>10 THEN 2041 
PRINT "IT WILL TAKE A FEW SECONDS BETWEEN RUNS" 
PRINT 

O=0 

E=Q 

T=0 

FOR W=1 TO Q 

FOR Z=1 TO So 

B1=INTCRNDC1)*100) 

IF B1=0 THEN 2120 
Ci=B1/2 
Ni=C1-INT(C1) 

IF Di1=0 THEN 2240 
0=0+1 

GOTO 2260 

E=E +1 

T=T+1 

NEXT Z 
E1=(E/T)*X100 
O01=(0/T) 100 
PRINT "EVEN" » * 


“’"»y "O00" »" “"»¥"TOTAL NUMBERS“ 
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PROGRAM NAME? ODD EVEN/KYLE < CONT‘’D > 


02360 
02380 
02381 
02383 
02400 
02401 
02402 
02404 
02406 
02420 
02421 
02423 
02425 
02427 
02440 
02460 
03000 
03005 
03010 
03020 
03025 
03030 
03035 
03040 
03060 
03080 
03100 
03110 
03120 
03140 
03160 


PRINT EvE1sOr019T 

NEXT W 

PRINT 

IF R>=1 THEN 2406 

PRINT “THE FIGURES MAY SHOW ME FAVORING ONE OR THE" 
PRINT “OTHERe BUT THE NEXT TIME AROUND MAY BE DIFFERENT» " 
PRINT "SO DON’T LET THAT INFLUENCE YOUR DECISIONS" 
R=R+1 

FRINT 

FRINT "WOULD YOU LIKE TO SEE ANOTHER RUN?" 

FRINT TAR(10O)"C(TYPE 1 FOR YES OR 2 FOR NO)-~-"% 
INFUT B 

IF Be=0 THEN 2421 

IF Br=3 THEN 2421 

IF B=1 THEN 2030 

RETURN 

PRINT “YOU WANT TO DECIDE IF THE NUMBER IS O00 OR EVEN" 
GOTO 4601 

FRINT 

PRINT TAR(10)"TYPE 1 FOR ODD OR O (ZERO) FOR EVEN-~"¢ 
INFUT A 

IF As=2 THEN 3020 

IF At=-1 THEN 3020 

B=INTCRNDC1)*100) 

IF B=0 THEN 3040 

C=B/2 

t=C-INTCC) 

PRINT 

IF U=A THEN 1070 

IF D=.S5 AND A=1 THEN 1070 

GOTO 1160 
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FROGRAM NAME H8 REFLEX TEST/SMITH 


0000! 
00002 
00003 
00004 
0000S 
00006 
00007 


REM H8 REFLEX TEST 

REM DENNIS L. SMITH 

REM 91 WESTPARK DR.» OTTAWAs ONTARIOyr CANADA K1B-3G64 

REM WRITTEN FOR B&B H EXTENDED BASIC 10.01.01 

REM CAN BE RUN WITH B H BASIC 10.01.02. 

REM REQUIRES 12 K MEM WITH EITHER BASIC 

REM NELETING REMARKS FPREMITS RUNNING WITH 8 K MEM ANDI B 


H BASIC 


00008 
00009 
00010 
00015 
00020 
00030 
00040 
00045 
00048 
00050 
CE ON 
00060 
00065 
EAT 

00070 
00080 
00085 
00090 
00100 


00110 
0999S 
10000 
10100 
10110 
LO120 


REM 2 OK KOK OKOK KK 

REM CLEAR H? SCREEN TO FLAY 

GOSUB 10000 ? REM FRINT SOME BLANK LINES TO CLEAR SCREEN 
GOSUB 10000 ? REM THE GAME REPEATS STARTING HERE 

FRINT "THIS IS A TEST OF YOUR REFLEXES. "? PRINT 

FRINT "I WILL WAIT A WHILE», THEN I WILL PRINT A ’#°." 
FRINT “AS SOON AS YOU SEE THE ’#’..+FUSH THE SPACE BAR.!" 
FRINT "CFUSH THE SPACE BARy WHEN YOU ARE READY TO FLAY)" 
FRINT "(TO END GAMEy TYFE CTRL Cy» THEN FUSH SPACE.)" 
FAUSE + GOSUB 10000 ? REM WAIT TO START GAME» THEN OFEN SPA 
SCREEN 

GOSUR 11000 3 REM MOVE CURSOR FOR A RANDOM TIME 

REM CLEAR CLOCK THEN SET WITH ALLOWANCE FOR FROGRAM OVERH 


FOKE 8219903FOKE 82207255 

PRINT "#"°93POKE 82199252 

REM WAIT FOR INPUT AND GET TIME FROM CLOCK 

PAUSE ¢ T=FPEEK(8219) ¢ T1=PEEKC 8220) 

PRINT CHR&E (13>) 3 TABC 40) F "TIME 2 "SINTCOC256XKT1+T)/5)/1008 "SEC 


GOTO 15 3 REM REFEAT THE GAME 

REM GOOOOOOKKK PRINT 4 BLANK LINES XXXKKKKKKX 

FOR IT=1 TO 4 3 PRINT ? NEXT I ¢ RETURN 

FAUSE 200+SOOOXRNIC1) 

IF PEEKC8301)=0THEN RETURN 

FRINT "DON’T JUMP THE GUN!!! "SPRINT TABRC40)$3FPOKE 8301%0:G0 


TO 10100 


LO99S 


REM SOOO MOVE CURSER RANIOM DISTANCE ANDI) WATCH FOR IN 


FUT KK KKK KKK 


11000 
11003 


IF RNDCL)>.5 GOTO 11060 
REM MOVE CURSER ONE FULL LINE 
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11010 
11020 
11650 
11035 
11040 
11070 
11080 
L1I99S 
12000 
COUNT 


KR 


12005 
12010 
L2013 
12020 
12030 


PRINT TABC78) sCHRS(13)% 

GOSUB 12000 ¢ REM CHECK FOR EARLY INFUT 
GOTO 11000 

REM MOVE CURSER A PARTIAL LINE 

FRINT TABC78XRNDC1))¢ 

GOSUB 12000 ¢ REM CHECK FOR EARLY INPUT 
RE TURN 


REM SOOOOOOOKK CHECK FOR EARLY INFUT XXxXXKXKKKX 
IF FEEK(8301)=0 THEN RETURN ¢ REM CHECK BASIC INPUT BUFFE 


REM A CHARACTER IS IN THE INPUT BUFFER 
FRINT "DON’T JUMP THE GUN /HTTT* 

REM CLEAR THE INFUT BUFFER 

FOKE 830170 

RETURN 


4 - 208 


H8 REFLEX TEST /SMITH = CONT‘’D > 


SECTION V 


UTILITY 
PROGRAM NAME PAGE 
SYMPLOT/SELLINGER. «sassenewscwate son wads sounen se aaae 5-1 
HOME ADDRESSES/GRUNDON....costcevesisnneseecrecesneces 5-4 
DIET/FRITKWs cen s0ceesssevacsseeseasesas wanes sn ree 5-7 
Ho PLOT REAICN css nececescaveuwernessaseesvaesee oes a='13 
SECTIONS PAQUETTE. suscexecassesciaveveneadasiene canes I= 17 
ALPHABET IZE/FALE suscsscecsvess oe nee sexewnwee sau wwe 5-20 
CORRELATES SIOLARZ scixanextaseysoesesseoresiendorys 5-21 
ONE=WAY ANALYSUS/STOLARZ.os0s5 cccnwasssocncen cance 5-24 
EQUAT IGNS/SHAFFER: « «sce ssecess cee e meen gaavane vena 5-2/7 
CLOG SENTON: « $w.us aud 00s vecet oer enwen donesennones’s 5-30 
BIRTHDAY FACTS/ succes dssseesssvrsees Oromnawessewee 5-32 
Be MUSIC/WONTENN: s2.2%¢ exneds okaeee< ¥ovasencee ners D=357 
LABEL PRINTER/REECE. <ctiseeerresseneecnseeeee Kars es 5-69 
LIST INGS/AMOROSO: 6 sc tssccesiccedtewssnsvenses nae a 5-7) 
HEADLINER /MIAMO. cas0eee ese ne raneae waewenne ones wens 5-75 
MAVLING LISTFMILLER sc ccssvoorgcuee saveteseasanuuen 5-80 
TYPESETTERSENNG 24 sccdcwnncocteeeeasbncaseceeauwdua 5-85 
TIME KEEPER/DUNN. sicnescawevenseu pasuneseoswenesss 5-88 
CHESS TIMER/HINKLEY . csccccssewee tedeeeeesengen eee 5= 102 
MAILING LIST/BARNICK-NELSON. ...scessveceserccacees 5-107 


STRING SORT/WARREN.. 21sec cece ce eeeeee eee cneeeeees 5-114 


SECTION V_ CONT'D 
UTILITY 
PROGRAM NAME 
S060 DI SASSEMBLER/BEHAR. os scccneeeenarsuexs nnenven 
BIORHYTHM/BARTOL | sssscneeccntewues rdeawes ree sean 
MALL LABEL PROGRAM/BEHAR.«<snsesssseens wad enesues 


SPELLING WORDS/WRIGHT ...cccctedsesacpeweaee rennens 


<< Ho< Uo GS < S >< O >< F >< T OK WOOK A OK ROOK E D> 


FROGRAM NAME: SYMPLOT/BELLINGER 


00001 REM /XXKKKKKKKKKKKKKKKKK/ 

00002 REM /X SYMFLOT 1.00.00 x/ 

00003 REM AOC OOOO KAKO KK / 
00004 REM /xX 10 DEF FN F(X*sY)=FUNCTION(X2Y) &/ 
0000S REM JKR KKK KKK KKK KKK KKK KKK KK KR RK RK KKK / 
00010 DEF FN F(X ¥)=(8KXKXKCXKX—-1L)I41) KC BKYKYKCYKY-1)41) 
00020 S$="A BCOEFGHIJIKLMNOPARSTUVWX Y Z* 
00030 REM /XXKKKKKKKKKKKKKKKKKK/ 

00040 REM /X INPUT FARAMETERS xX/ 

QOOOSO REM /KKKKKKKKKKKKKKKKKKKK / 

00060 INFUT "XMIN»XMAXrYMIN* YMAX "#X19X2xV1rY2 
00070 INFUT “"NXPTS "sN1 

00080 N2=N1KCX2-X1) 3/0 CY2-Y1)*5) 

00090 DIM Z(N1+*N2) 

00100 REM SKXKKKKKKXKKKKKKKKKKKKKK KK / 

00110 REM 7k COMPUTE VALUES FC(X*Y) x/ 

OO1L2Z0 REM SKK KKKKKKKKKKKK KKK KK KK KKK / 

00130 IT1=(X2-X1)/(N1-1) 

00140 I2=(Y2-Y1)/¢(N2-1) 

00150 Y=Y2+I2 

00160 FOR J=1 TO N2 

00170 Y=Y-I2 

00180 X=X1-I1 

00190 FOR I=1 TO Nil 

00200 X=X+I1 

00210 ZCI» J=FN FCXrY) 

00220 NEXT I 

00230 NEXT J 

00240 Z(N1»N2)=FN FCX2rY1) 

00250 REM JAKKAKKKKKKKKKKKKKKK KKK / 

00260 REM /X COMPUTE MAX» MIN X/ 

00270 REM /XXKXKKKKKKKKKKKKKKKKK/ 

00280 I1=Z(191) 

00290 I2=11 

00300 FOR J=1 TO Ne 

00310 FOR I=1 TO Ni 

00320 IF Z¢(IrJ)<11 THEN T1=Z(IrJ)3 GOTO 340 
00330 IF Z(I*sJ)2I2 THEN I2=Z(I*J) 

00680 (I 


an 
i 
~ 


PROGRAM NAME? SYMPLOT/BELLINGER «< CONT‘D > 


00350 
00340 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
003570 
00580 
00590 
00600 
00610 
00620 
004630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 


NEXT J 

REM ACO OOK / 

REM /* SET-UF SYMPLOT X*/ 

REM JKR KKK KKK KKK KKK / 

INPUT "NSYM "#N3 

N3=N34N3~-1 

DIM N(N3) sVCN341) rS$(N3) 
J=(T2-11)/N3 

FOR I=1 TO N3 

VCID=LT1it¢I-1) kJ 

S$(I)=MIDS(S#yTv1) 

NEXT I 

VINSt1)=12 

REM ACCOR OOK KKK K / 
REM /*X INPUT LABEL & SET PORT xX/ 
REM OOOO KKK KKK AK KKK KK / 
LINE INPUT "LABEL "#L¢ 

PORT= 1863FRINT 

REM OOK KKK KKK KK KK / 

REM /*X FRINT SYMPLOT */ 

REM /XKKKKKKKKKKKKKKKK/ 
K=(T2-11)/(N3-1) 

FOR I=1 TO N1it1iPRINT "XK"s3NEXT I3PRINT "x" 
FOR J=1 TO N2 

PRINT "X"35 

FOR I=1 TO N1 
L=INTC(Z¢I»J)-I1)/K4+1) 

FRINT S#(L)¢ 

N(LO=ENC(L O41 

NEXT I 

FRINT "x" 

NEXT J 

FOR I=1 TO NitiiPRINT “K"S3NEXT I3PRINT "x" 
REM ACO ORK KAR KK KKK / 
REM /X PRINT LABEL & STATISTICS x/ 
REM AO OO OOOO OKO OK AOK IOK / 
FRINT L$ 

FRINT 

FOR I=1 TO N3 


dad 


“Het Us G> << FS 4 O PK F OS TOS WOK A OK OR OX E > 


PROGRAM NAME? SYMPLOT/BELLINGER < CONT‘’D = 


00740 PRINT “SYMBOL ("sS$(T)5") =>"sUCT)$ TABC27) 5 

00750 PRINT "= FCXrY) <="sVCI+1)5TAB(S3)9" USED" FNCI)FTABCG2)¢ "TI 
MES" 

00760 NEXT I 

00770 PORT= 2503PRINT 

00780 LINE INFUT “NEW DENSITY RANGE "#L¢ 

00790 IF MIDS(Lrie1)="Y" THEN CLEAR N(iCLEAR VCiCLEAR S$(3GOTO 3 


90 

00800 END 
° * o e * ¢ e * ? + + + + + + he ° e ¢ + ¢ + ¢ e + ¢ ¢ ¢ .7 e + + 
+ ¢ + ¢ * + ° ¢ + e + ¢ ¢ * e * + + ¢ + + e ° + e * e ¢ ¢ ¢ + ¢ 
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PROGRAM NAME? HOME ADDIRESSES/GRUNDON 


00001 REM 
00002 REM 
00003 REM 
ONE 

00004 REM 
SIRED 
00005 REM 
YED BY 
00006 REM 
DUAL 
00007 REM 
00008 REM 
TRY 

00009 REM 
00010 REM 
ILL BE 
00011 REM 
UND AND 
00012 REM 
+ AFTER 
00013 REM 
R USER 
00014 REM 
00015 REM 
00016 REM 
ISPLAYS 
00017 REM 


* * HOME ADDRESS/PHONE/BIRTHDAY LISTING * x 

* X BY DALE GRUNDION X xX 

X FROGRAM FROVIDES A MEANS OF RECALLING ADDRESSES OR FH 
* NUMBERS FOR HOME USEr KEYED FROM USER INFUT OF THE DE 


x NAME. FGM LINES 440 TO 470 FERMIT THE SEARCH TO BE KE 
* THE LAST NAME WANTED SHOWEVER: IF MORE THAN ONE INDIVI 


WITH THAT LAST NAME EXISTS ALL WILL BE SHOWN. 
FUTURISTICALLY»s SYSTEM EXPANSION WOULD PROVIDE CIRCUI 


THAT WOULD) ACTUALLY DIAL THE FHONE. 
WHEN SEARCHING FOR AN ADDRESS FOR A GIVEN NAME? USER W 


Me % 


XPROMPTED WITH ’#° INDICATING THAT THE NAME HAS BEEN FO 
*XSYSTEM IS WAITING FOR USER TO LOAD ENVELOFE IN FRINTER 
KTYPING RETURN PRINTER OPERATES AND THEN AGAIN WAITS FO 
*TO UNLOAD PRINTER. THIS AVOIDNS TYPING UNDESIRED INFO. 
XTYPING RETURN CONTINUES RUN, 

XUSER INFUT OF A THREE LETTER ABREVIATION FOR A MONTH D 


XALL INDIVIDUALS THAT HAVE A BIRTHDAY IN THAT MONTH. 


00090 CNTRL 490°0$="/"tRESTORE PRINT $F RINT 

00100 PRINT TAB(S)"1 — SHOW COMPLETE LISTING" 

00110 PRINT TAB(S)"2 ~ SELECT NAME AND SHOW ADDRESS" 

00120 PRINT TAB(S)"3 — SEARCH BIRTHDAYS FOR GIVEN MONTH" 

00130 PRINT TAB(S)"4 — SELECT NAME AND SHOW FHONE NUMBER" 

00140 INPUT "WHAT TYPE INFORMATION DO YOU WANT? “$SiPRINT {PRINT 
00150 IF (S=2 OR S=4) THEN LINE INFUT "WHAT NAME DO YOU WANT? "3N 


00155 IF S=3 THEN LINE INPUT "WHAT MONTH DO YOU WANT? "3% 


00160 FOR 


Z=1 TO 200 


00170 READ N¢rBSrASe TS IF N$="000" THEN GOTO 480 
00180 IF S=1 THEN GOSUB 230 


CH 
i 
> 


FROGRAM NAME? HOME ADDIRESSES/GRUNDON < CONT‘’D = 


00190 IF S=2 THEN GOSUB 260 

00200 IF $=3 THEN GOSUB 290 

00210 IF S=4 THEN GOSUB 320 

00220 NEXT Z 

00225 REM * * COMPLETE LISTING X* xX 

00230 FRINT TABCSING$+ BS 

00240 GOSUE 400 

00250 PRINT tPRINT TAB(S)TSiPRINT SPRINT *RETURN 

00255 REM * * SHOW NAME AND ADDRESS * xX 

00260 GOSUR 440 

00270 IF R$=R1$ THEN INFUT "#"°SfPRINT TABCS)NS{GOSUB 4003PRINT ?1 
NFUT ° "3 

00280 RETURN 

00285 REM * x SHOW BIRTHDAYS xX xX 

00290 Mig=""{FOR R=1 TO 3tLET Mi$=M1i$+MID$(B$*Ry1) NEXT R 

00300 IF M1$=M$ THEN FRINT TABCS)N$* BS 

00310 RETURN 

00315 REM * * SHOW NAME ANI) PHONE NUMBER X* xX 

00320 GOSUB 440 

00330 IF R$=Ri¢ THEN PRINT TAB(S)N$*TS2INFUT “READY? "% 

00335 REM *k X INSERT FHONE DIALING SUB-FGM HERE * X* 

00340 RETURN 

00395 REM * * SHOW ADDRESSES * xX 

00400 FOR Y=1 TO LENCA#) 

00410 IF MIDS(A$»Y21)<>0% THEN FRINT TABCS)MIDS(CAS*Y91)5 

00420 IF MIDNS(A$rYr1)=D% THEN PRINT 

00430 NEXT YiRETURN 

00435 REM * X MATCH NAMES IN REVERSE X* X 

00440 R$=""SRIF=""FR2$="" 

00450 FOR R=LEN(NI$) TO 1 STEP -1iLET R1i#=R1$+MIDS(N1$/Ry 1) SNEXT 
R 

00460 FOR R=LEN(N$) TO 1 STEF -1{LET R2¢=R2$+MIDS(NS*Rr 1) NEXT R 
00470 FOR R=1 TO LENC(NI$) {LET RS=RS4+MID$(R26¢Re1) NEXT RS RETURN 
00475 REM x x CLOSE OR CONTINUE * x 

00480 LINE INPUT "ARE YOU FINISHED? (Y OR N) “#Y$2IF Yé="N* THEN 
90 

00490 PRINT tPF RINT "DON’T FORGET — CNTRL 491 IN CMD MODE" SEND 
00500 DATA "MATT NEFFER",s "DEC 23° 

OO501 DATA "1234 WELDER ST./LONGVIEWs MI 47310" 


- 


PROGRAM NAME? HOME ADDRESSES/GRUNDON < CONT‘’D > 


00502 
00505 
00506 
00507 
00510 
00511 
00512 
00515 
00516 
00517 
00520 
00521 
00522 
00525 
00526 
00527 
00530 
00531 
00533 
00535 
10000 


** 
o 


+7 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
TATA 
DATA 
DATA 
DATA 
DATA 
DATA 
LATA 
DATA 
DATA 
DATA 
DATA 
DATA 
LATA 


REM XX * ETC. 


DATA 


oe 
7 


"616/567 8023" 

"BERTHA BLIMF"»"MAY 15° 

"16 TONS ST./BIG CITY: GA. 30905" 
"313/965 4503" 

"SALLY SLUMP "»"MAY 19° 

".179 BATTING AVE./BASEBALL MA. 76201" 
"496 2143" 

"DALE GRUNDON", "OCT 1" 

"11456 LINKS DR./RESTON: VA. 22090" 
"703/437 3710" 

"CHARLIE BLIMP"» "DEC 15° 

"9656 GLUB RD./CALLISSIPPI» KY 90456" 
"319/563 2206" 

"X-HUG",y "NOV 1° 

"HILLTOP RO./ST. JOSEPH, MI 49085" 
"616/982 3463" 

"BERNARD GIMBLE"»s"JUL 19" 

"236 PLAYER LANE/BASEBALL» MA. 76201" 
"662 0945" 

ETC. ETC. xk X 

"000"» "000"s"000"%» "000" 


ce 
+? 
7? 
* 
7? 
ad 
7 
7 
oe 
ad 
. ad 
27 
ad 
77 
7 
7. 
Sd 
ce 
7 


7 


7. 


7? 


A ad 


oe 


oe 


Sed 


bl 


27? 
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PROGRAM NAME? DIET/FRITKIN 


00001 
00010 
00020 
00030 
00040 
KIN" 

00050 
00080 
00100 


=) "9 


00105 
00110 
00115 
00120 
00130 
00131 
$ 

00135 
00140 
00145 
00150 
00155 
00200 
00205 
00210 
00215 
00220 
00225 
00230 
00235 
00240 
00245 
00250 
00255 
00260 
00300 
00305 
00310 
00315 


REM DIET/FRITKIN 5637 BYTES 

REM DIET CALCULATION PROGRAM 

REM “ORIGINAL BY MARTIN C. BEATTIE? M-D.* 

REM "FROM ‘INTERFACE AGE’ OCT.21974. VOL.1I/ISSUE 11° 

REM “ADAPTED FOR HEATHKIT H-8 EXTENDED BASIC BY GEORGE FRIT 


REM “JAN. 129 1978" 

DIM TCS) CCS) 

INPUT "IF YOU WANT INSTRUCTIONS TYPE THE LETTER Y IN QUOTE 
AS 

GOSUB 120 

IF AS="Y"* THEN PRINT :GOSUB 900 

GOTO 130 

AS=LEFT$(A$e1) RETURN 

FRINT "SELECT METRIC OR ENGLISH MEASUREMENTS BY TYPING THE" 
INPUT "LETTER OF THE SYSTEM YOU WISH TO USE IN QUOTES "9A 


GOSUB 120 

M=OtIF AS="M" THEN M=1 

INPUT "MALE OR FEMALE TYPE FIRST LETTER IN QUOTES "SAS 
GOSUB 120 

S=Ot IF At$="M" THEN S=1 

PRINT “HEIGHT "3 

IF M=1 THEN FRINT "IN CENTIMETERS" ?GOTO 215 


PRINT "IN INCHES "3 
INFUT H 
PRINT "WEIGHT ‘“» 


IF M=1 THEN PRINT "IN KILOGRAMS "#3GOTO 235 
PRINT “IN FOUNDS "9 

INPUT W 

IF Mi>0 THEN 250 

H=HK2.543W=W/2.2 

INPUT "AGE (YEARS) "FA 

GOSUB 300 

GOTO 400 

REM CALCULATION OF SURFACE AREA 
S=W".425X*H™. 72571 -.84/10000 

REM READ TABLE AND CALCULATE BMR 
RESTORE 


FROGRAM NAME: DIET/FRITKIN < CONT‘D > 


00320 READ AlyM1oF1 
00325 IF A>20 THEN 340 

00330 IF A<>AL THEN 320 

00335 GOTO 355 

00340 IF A1=80 THEN 350 

00345 IF ABS(A-A1)>3 THEN 320 

00355 DATA 195395312952. 495 2640 Sr 51 3251 027495013749. 8 75749. 3248, 
4 

00357 DATA 6%48.394797947 374504787466 57 43 BrP AG. 2742 .8710744 742 
5 

00359 DATA 1174374291274265741 6391374215240. 57142421 BP 2715 VAL. 
873967 

00361 DATA 16941.64736.9917 740.8736 437187407 35.9919 939s 2735S 
00363 DATA 2093866935 +32 2573707 3502730756687 55017 55756059 35 
00365 DATA 4093663934697 45 136. 2734657507 35-87 55+ P rT y S547 S303 
00367 DATA 60934.993267965934.473520 277073389 5107975735 s 295163 
00369 DATA 80733730.9 

00375 REM ESTIMATE BMR/HR 

00380 IF S=1 THEN 390 

00385 B=F1xS!GOTO 395 

00390 B=M1xS 

00395 B=INT(B+.5) $RETURN 

00400 FRINT “HOWMANY HOURS DO YOU SPEND?" 

00401 PRINT 


00410 INFUT " SLEEPING OR RESTING "sTC(1) 
00415 INFUT * SITTING "$T¢(2) 
00420 INPUT " STANDING, LIGHT ACTIVITY "3T(3) 
00425 INPUT * WALKING» MODERATE ACTIVITY "#T(4) 
00430 INPUT ° EXERCISING OR HEAVY WORK "#T(S) 


00435 TS8=O:FOR I=1 TO SiT8=TCI)+TStNEXT tIF T8=24 THEN 510 

00440 PRINT ‘PRINT "THERE ARE 24 HOURS IN THE DAY. HERE ARE YOUR 
SELECTIONS" 

00445 FOR I=1 TO 5 

00450 PRINT # 

00453 GOSUB 455:GOTO 480 

00455 IF I=1 THEN FRINT "SLEEPING"; 

00460 IF I=2 THEN PRINT "SITTING"? 

00465 IF I=3 THEN PRINT "STANDING"? 

00470 IF I=4 THEN PRINT "WALKING? 


an 
i 
res] 


FROGRAM NAME? DIET/FRITKIN < CONT’D > 


00475 IF I=5 THEN FRINT “HEAVY WORK"? 

00477 RETURN 

00480 PRINT TAB(20)53PRINT TCT) 

00485 NEXT I 

00487 PRINT "TOTAL="sTAB(20)$T8iPRINT 

00490 FRINT “WHICH WOULD YOU LIKE TO MODIFY "+ 
00495 INFUT "(ENTER ITEM #» NEW HOURS) “sIvTC(I) 
00500 GOTO 435 

00510 REM FIND TOTAL CALORIC USE 

00520 E2=85! E3=150%E4=240%E5=350 

00525 GOSUB 535 

00530 GOTO 590 

O0OS35 CCL) =INTC(TC1)XBt+.5) 

00540 C(2)=INTC(T(2) KC B+(E2-B)KCW/70) 465) 

00545 CC3)=INT(T(3) KC B+(E3-B)K(W/70) 465) 

00550 C(4)=INTCT(4)(B+(E4-B) KCW/70) 465) 

00555 CCS)=INT(T(S) KC B+(ES-B)KCW/70) 465) 

00560 RETURN 

00590 PRINT $PRINT 

00600 FRINT "ESTIMATED BASAL METABOLISM="*B»"KCAL/HR OR" #BK245 °KC 
AL/TAY* 

00610 FRINT "ESTIMATED CALORIC REQUIREMENTS FOR DAILY ACTIVITIES: 


00615 PRINT :T=O?3FOR I=1 TO S 

00620 GOSUB 455 

00625 PRINT TAB(20)5C(T) 

00630 T=TtHC(T) 

00635 NEXT I T=INT(T+.9) 

00640 PRINT 3FRINT "TOTAL ="#TAB(20)5T 

00710 IF M=1 THEN 717 

00715 INPUT "HOW MUCH WEIGHT DO YOU WANT TO LOOSE (LB) “$l. 
00716 GOTO 720 

00717 INFUT "HOW MUCH WEIGHT DO YOU WANT TO LOOSE (KG) “éL 
00718 L=Lx*2-2 

00720 INFUT "HOW MANY WEEKS DO YOU WANT TO TAKE "3T9 

00725 D=INT(CCL/T9) K500) 4-5) 

00730 FRINT {PRINT "YOU MAY EITHER DECREASE YOUR DAILY INTAKE BY" 
»Dy" CALORIES OR * 

00735 PRINT "INCREASE YOUR ACTIVITY BY THE SAME AMOUNT® 


A 
i 
oO 


PROGRAM NAME? DIET/FRITKIN < CONT‘’D > 


00740 R=T-D 

00745 PRINT “IF YOU CHOOSE TO REDUCE YOUR INTAKE» YOUR REQUIRED" 
00750 PRINT "DIET WILL CHANGE SLIGHTLY AS YOUR WEIGHT DROFS* 
00752 PRINT 

00753 PRINT "BEGINNING OF "$TAB(20)3 "WEIGHT" $TAB(30)$ "ALLOWED INTA 
KE/TIAY" 

00754 W1i=2.2kW3 IF M=1 THEN W1=W 

00755 PRINT "WEEK 1°¢TAB(20)3W1sTAB(35)5R 

00785 FOR I=1 TO T9 

00790 W=W-(L/2.2)/T9 

00795 GOSUB 300 

00800 C(1)=TC(1) xB 

00802 GOSUB S35 

00805 T=O0:FOR X=1 TO S 

00810 T=T+C(X) NEXT X 

00812 W1=2.2kWiIF M=1 THEN W1i=W 

00815 FRINT “WEEK"$I+1s TAB(20)5W1%TAB(35) 3INT(T-D) 

00820 NEXT I 

00825 PRINT :PRINT "TO MAINTAIN YOUR NEW WEIGHT OF----—"3TAB(35)5W 


008246 IF M=0 THEN PRINT “LBES" 

00827 IF M=1 THEN FRINT "KG" 

00830 PRINT "YOUR ALLOWED CALORIC INTAKE IS---~"#TAB(35)3INT(T) 
00835 FRINT ¢PRINT "GOOD LUCK!!!" 

00890 END 

00900 REM INSTRUCTIONS 

00905 FRINT * DIETING IS DIFFICULT. FAD DIETSr WHICH OFT 
EN STRESS" 

00907 FRINT "A LIMITED FOOD TYPFECIE. EGGS*OR THE ELIMINATION OF C 
ARBOHYIIRATES ) " 

00909 FRINT "DO LITTLE TO ESTABLISH GOOD DIETARY PATTERNS WHICH" 
00911 FRINT "WOULD HELF TO MAINTAIN YOUR WEIGHT AT A NEW LOWER LE 
VEL * 

00913 PRINT * THE BEST DIETS ATTEMPT TO HOLD A BALANCE 

OF FOOD TYFES*" 

00915 PRINT "SO THAT DAILY NUTRITIONAL REQUIREMENTS ARE MET» THE 
DIETER" 

00917 PRINT "IS ABLE TO EAT FOODS PREPARED FOR THE REST OF THE FA 

MILY" 

00919 PRINT "AND SOUND DIETARY PRINCIPLES ARE INTRODUCED THAT CAN 
BE" 


2 => 20 


FROGRAM NAME? DIET/FRITKIN 


00921 PRINT “CONTINUED AFTER THE WEIGHT LOSS IS ACHIEVED" 

00922 FAUSE (6000) 

00923 PRINT PRINT 

00925 PRINT " A BALANCED DIET SHOULD CONTAIN NO LESS T 

HAN 12 TO 14%" 

00927 PRINT "FROTEIN AND NO MORE THAN 35% FAT. THE REMAINDER WOU 
LD BE" 

00929 PRINT "CARBOHYDRATE~-~PREFERABLY OF THE UN REFINED TYPE WIT 
H A MINIMUM" 

00931 FRINT “OF SUGAR AND WHITE FLOUR. THE FOOD TYPES SHOULD BE V 

ARRIED® 

00933 FRINT “AND MANY BOOKS ARE AVAILABLE WHICH DETAIL THE" 

00935 FRINT "NUTRITIONAL VALUE OF FOODS." 

00940 FRINT ° NO DIET SHOULD BE UNDERTAKEN WITHOUT A GE 

NERAL PHYSICAL * 

00942 PRINT "CHECK-UP BY A FHYSICIAN. WEIGHT CONTROL PROBLEMS MAY 
WELL" 

00946 PRINT “BE DUE TO METABOLIC DEFECTS" 

00948 PRINT "ANI UNSUPERVISED DIETING COULD BE DANGEROUS" 

00949 PAUSE (4000) FRINT ¢FPRINT 

00950 FRINT *° THE PURPOSE OF THIS PROGRAM IS TO INTRODU 
CE THE DIETER" 

00952 PRINT "TO THE INTERRELATION BETWEEN HIS CURRENT SIZE+ BASAL 
META-*" 

00954 FRINT "BOLIC RATE» ACTIVITY» AND ENERGY REQUIREMENTS. HOPEF 
ULLY" 

00956 PRINT "WITH THIS KNOWLEDGE: THEY MAY BE BETTER ABLE TO MOD 
IFY THEIR" 

00958 PRINT “DIET AND/OR ACTIVITY TO MOVE TOWARD AND MAINTAIN THE 
IR" 

00960 PRINT “DESIRED WEIGHT" 

00962 PRINT * ESTIMATION OF BASAL METABOLISM AND CALORI 

C ACTIVITY ARE* 

009464 PRINT "JUST THAT. BMR IS CALCULATED FROM HEIGHT, WEIGHT: AN 
0 AGE AND MAY" 

00965 PRINT "VARY + OR - 10%. ACTIVITY ESTIMATES ARE AS FOLLOWS I 
N° 

00966 PAUSE (4000) %PRINT {PRINT 

009467 PRINT "CALORIES/HR:" 


3 =~ di 


oe 


“po 
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PROGRAM NAME? DIET/FRITKIN «< CONT‘D > 


00968 
00970 
00972 
00974 
00976 
00978 
00979 
00980 


SLY” 


00986 FRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FRINT 
PRINT 
PRINT 
STANDARDS" 
00982 FRINT 


THEY ARE® 


00988 FRINT 


AMOUNT" 


00990 FRINT 
00992 FRINT 


of 
Ld 


oe 


oo? 


oe 


7? 


{PRINT "ACTIVITY" TAB(20)%*CALORIES/70 KG PERSON/HR* 
"SLEEP" $TAB(25) 5 "BMR® 

"SITTING" $ TABC25) 5°85" 

"STANDING*’ §TABC25) "150" 

"WALKING" ¢TAB(25) 5 "240" 

"EXERCISING" $ TAB(25)5 "350" 


"THESE ESTIMATES COULD BE MODIFIERD. THEY ARE USED AS 
“WHICH ARE RECALCULATED FOR YOUR GIVEN WEIGHT. OBVIOU 
"MANY EXERCISES REQUIRE MORE THAN 350 CALORIES/HR BUT 
"NOT GENERALLY SUSTAINED FOR THAT AMOUNT OF TIME. THE 


"CHOSEN WAS INTENDED TO BE AN AVERAGE" 
sRETURN 
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FROGRAM NAME: H 9 FLOT/KEATON 


00001 REM 

H ? FLOT 
00010 REM FROGRAM ¢ H? FLOT 
00012 REM VERSION ¢ 10.01 
00014 REM EDIT $ O2C 
00016 REM EDIT DATE $ O7-MAR-78 
00018 REM AUTHOR $ DAVID KEATON 
00020 REM SYSTEM $; HB / HY / ECP-3801 / 16K RA 
M 
00022 REM SOF TWARE $ EX. Be He BASIC # 10.01.02 
00024 REM FROGRAM SIZE ¢ AFFROXIMATELY 34600 BYTES AF 
TER RUN 
00030 REM 

MODIFICATION HISTORY 
00031 REM VER/EDIT EDIT DATE REASON 
00032 REM 10.01.02A 27~-FEB-78 (ORIGINA 
L> 
00033 REM 10.01,.02B 02-MAR-78 FIX PLOT 
TING FROBLEM 
00034 REM 10.01.02C 07-MAR-78 FLOT NEG 
ATIVE OF FN 
00040 REM 

GENERAL DESCRIPTION 
00041 REM THE USER MODIFIES LINE 500 TO DEFINE HIS 


a NES 


FROGRAM NAME? H 9 PLOT/KEATON < CONT‘D > 


00042 REM OWN FUNCTION: THEN RUNS THE FPROGRAM AND 

00043 REM SPECIFIES THE FORTION OF THE GRAFH OF 

00044 REM THAT FUNCTION WHICH HE WISHES TO SEE 

00045 REM DISPLAYED. THE USER THEN PUTS THE 

00046 REM H9 IN PLOT MODE, TYPES A SFACE» AND THE 

00047 REM FROGRAM DIRAWS THE GRAPH AND WAITS FOR 

00048 REM USER TO TYPE ANOTHER SPACE. 

00049 REM THE “PLOT NEGATIVE OF FUNCTION’ OFTION IS FOR PLO 
TTING 

00050 REM QOUBLE VALUED FUNCTIONS SUCH AS ELLIPSES»s ETC. WH 
ICH 

00051 REM BASIC WOULD NOT NORMALLY FICK UP. 

00300 REM 


VARIABLES US E OD 


00301 REM L. ae LEFT-MOST X COORDINATE OF FLOT 
00302 REM R oatan RIGHT-MOST X COORDINATE OF PLOT 
00303 REM T ea TOF~MOST Y COORDINATE OF PLOT 
00304 REM B set BOTTOM-MOST Y COORDINATE OF FLOT 
00305 REM S cae 2 X-AXIS DISTANCE OF 1 CURSOR SPAC 
E 

00306 REM $1 — > Y-AXIS DISTANCE OF 1 PLOT LEVEL 
00307 REM X ame CURRENT X COORDINATE 

00308 REM x panei CURRENT Y COORDINATE 

00309 REM I ae > LOOF INDEX 

00310 REM AS me mini INFUT STRING 

00311 REM BS seitieeD FLAG FOR PLOTTING NEGATIVE OF FU 
NCTION 

00400 REM 


FUNCTION 


3 ~ 14 


FROGRAM NAME! H 9 FLOT/KEATON = CONT’D = 


00410 


00500 
00510 


01000 


01010 
01020 
01025 
$r1) 

01027 
01030 


01040 
01050 


01060 


REM FN A(X) onenee USER FUNCTION TO PLOT 
DEF FN ACX)=X/(COS(X) +2) 
REM THIS CAN BE JUST ABOUT ANY FUNCTION. 
REM 
MATIN conirING AREA 
INPUT "WHAT IS THE DOMAIN (X~RANGE) OF THE PLOT? "#LeR 


INPUT "WHAT IS THE RANGE (Y-RANGE) OF THE PLOT? "#ByT 
LINE INFUT "ALSO PLOT NEGATIVE OF FUNCTION? "SASS AS=LEFTSCA 


R$=""fIF A$="Y"THEN B$="FLOT NEGATIVE" 
REM FIND OUT WHICH PIECE OF THE GRAFH TO PLOT. 


PRINT "PLEASE CLEAR THE SCREEN: PUT THE H9 IN PLOT MODE," 
PRINT "AND TYPE A SPACE WHEN YOU ARE READY. WHEN THE GRAPH 


PRINT "HAS BEEN PLOTTED, JUST GET OUT OF PLOT MODE AND TYPE 


A SFACE."* 


01070 


01080 
01090 


01100 
01110 


01120 
01130 


01140 
01145 


REM LET USER KNOW WHAT’S GOING ON. 
S=(R-L)/79 S15 (T~B)/1272X=L~S 

REM SET UF VARIABLES FOR CALCULATIONS. 

PAUSE 

REM DON’T START UNTIL USER IS READY. 

FOR I=1T0 80%X=X+S 

REM SET UP PLOT LOOF. 

K=FN ACX)LIF B$="PLOT NEGATIVE"AND I/2=INT(I/2)THEN K=-K 


Y=(K-B)/S12Y=INTCY++9) 


= 


FROGRAM NAME? H 9 FLOT/KEATON < CONT‘’D = 


01150 


01140 
01170 
01180 


01190 
01200 


01210 
01220 
01230 


01240 


REM GET VALUE FOR Y AND ROUND IT. 

IF Y<OTHEN Y=0 

IF Y2127THEN Y=127 

REM CATCH ILLEGAL NUMBERS, 

OUT 250+%Y 

REM FLOT CURRENT FOINT. 

NEXT I?FAUSE 

REM END OF LOOF. 

REM WAIT FOR USER WHEN THRUOGH. 

PRINT LINE INPUT "PUT IN A NEW FUNCTION OR FLOT SAME ONE 


NEW OR SAME)? "SAG 


¢ 


01250 AS=LEFT$(A$+1) 
01260 IF A$="S"GOTO 1010 
01270 IF A$="N"GOTO 1310 
01280 REM FING OUT WHAT TO DO. 
01290 GOTO 1240 
01300 REM USER TYPED SOMETHING WRONG. 
01310 FRINT "TYPE THE FUNCTION AT LINE S00» THEN TYPE ’RUN’," 
01320 REM INFORM USER HOW TO CHANGE FUNCTION. 
32000 REM 
PROGRAMS Ex 1 FT 
32001 REM (USER CAN EXIT BY CTRL-C OR ANSWERING ‘NEW? AT LI 
NE 1240) 
32767 END {REM 
FINALLY! ! 


a-~ 26 


FROGRAM NAME! SECTION/PAQUETTE 


00010 FRINT * KKK SECTION PROPERTY PROGRAM = *x%x" 
00040 DIM AC10)eBC10) 20610) D010) 9G(10) 2HC10) 


00050 DIM J¢10) 9K C10) rh 610) 9MC10) »NC1O) 


00051 DIM FC10) 20610) 9FC10) xQC10) 2RC10) 2SC10) eV CLO) 


00060 PRINT "LO YOU REQUIRE INSTRUCTIONS? 
00070 INFUT X 

00080 IF X=1 THEN 100 

00090 IF X=2 THEN 240 


1=YES 2=NO0* 


00100 FRINT * Y THIS FROGRAM COMPUTES 
THE CROSS" 

00110 PRINT * (X29Y2) SECTIONAL FROPERTIES 0 
F* 

00120 FRINT * finn anne c cen x RECTANGULAR COMPOSITE 

SECTIONS." 

00130 PRINT " 1(XirY1) RECT.2 ! A STRUCTURAL MEMBER CA 

N BE MADE * 

00140 FRINT * eae * fon k OF AS MANY AS TEN RECT 

ANGULAR" 

00150 PRINT * ! 1(X29Y2) COMPONENTS. COORDINATE 

S$ FOR EACH" 

00160 PRINT * IRECT. 13! ! RECTANGLE ARE ENTERED 

WITH Xi" 

00170 PRINT * ! ! AND Yi AT THE LOWER LE 

FT CORNER" 

00180 FRINT * 1¢X19Y1)! X2 AND Y2 AT THE UPPER 
RIGHT" 

00190 PRINT * , ee a erate 

00240 PRINT "HOW MANY RECTANGLES MAKE UF YOUR CROSS-SECTION ~~~" 


00250 INPUT Z 
00260 FOR I=1 TO Z 


00270 FRINT "FOR RECTANGLE "#T#" WHAT ARE THE COORDINATES?" 


00280 FRINT "ENTER Xi AND YI" 
00290 INPUT ACI) *BC(T) 

00300 FRINT "ENTER X2 ANI Y2" 
00310 INPUT C(I) rf¢T) 

00340 H(I)=D¢(1)~-R(T) 

00350 G(I)=C(I)-ACT) 

00360 REM COMPUTE AREA 

00370 JC(T)=H( I) *G(T) 


7 ~rie 


PROGRAM NAME? SECTION/FAQUETTE < CONT’D > 


00380 REM COMPUTE hg 

00390 K(I)=BCI)+¢(H( I) 7/2) 

00400 REM COMPUTE AY 

00410 L¢T)=JIC I) KKCI) 

00420 REM COMPUTE AY SQUARED 

00430 MCT)=ICIOKCKCID%2) 

00440 REM COMPUTE IX 

00450 NCT)=(GCIIKCHCI) 73) 9/12 

00451 FC(I)D=CCI)-ACT) 

00452 OC I)=0¢(I)-BCI) 

00453 PCI)=FCI)kO(T) 

00454 Q(I)=ACIDF¢(F (19/2) 

00455 R¢ID=FCI)xQCI) 

00456 SCI)=P(I)kK(Q(1) 72) 

00457 VC T)=(OCIT)KC(FCI)73) 9/12 

00460 NEXT I 

00770 REM COMFUTE TOTALS 

00780 TI=ICLIFIC2 FIC SIF ICA FICS FIG) FIFI FIORE ICP FEICLO) 
00790 T2=KC LIEK C2) 4K CZ) EK (C4) EK CS EK COD EKCZIFEKCQDEK COD FEK CLO) 
00800 T3=L(L)FL (2.4L C3 FL (C40 4L (SFL (6D FL (7)4L (CB) +L 09) 4L 010) 
00810 T4=MCL>FMC 2) 4M (34M C4) 4M (5) 406) 407) 4N(8)4M (9) 4MC10) 
00820 TS=NC1L)+NC2)4NC3)4NC 4) 4NC5)4N(6)4N(7)4N(8) 4NC9DENCLO) 
00822 WL=F CLIFF C2) 4F (3) 4P C4) +P (SFP (6) 4P (7) 4F (8) 4F (9) 4F C10) 
00823 W2=Q(1)4Q(2)4Q63)4Q(64)40(5)4Q(6)4Q(7)4Q(8)40(9)4QC10) 
00824 W3=R CLERC 2) +R (SER (C4) EROS IER CHER (CZIERCBDER (PIER LOD 
00825 W4=5(1)45(2)49(3)49(4)49(5)49(6)45(7)49(8)48(9)49(10) 
00826 WS=VCLIFVI2) FU C3 EV C4 EVIS)4U( 6) EUC 7) FYU(BDEVCPDFEYCLO)D 
00860 REM COMPUTE INERTIA 

00870 U1=(TS+T4)-(€¢(T3)72)/T1) 

00880 REM COMFUTE NA 

00890 U2=T3/T1 

00891 U3S=(WStW4)~ CC (W3)72)/W1) 

00892 U4=W3/W1 

00900 REM R X AXIS 

00910 US=SQR(U1/T1) 

00920 REM R Y AXIS 

00930 U6=SQR(U3/T1) 

00940 PRINT "FROPERTIES ABOUT THE X~X AXIS" 

00950 FRINT “MOMENT OF INERTIA ="$U1 


7 - 18 


PROGRAM NAME? SECTION/PAQUETTE < CONT‘’D = 


00960 PRINT "NEUTRAL AXIS ---- ="FU2 

00970 PRINT "RADIUS OF GYRATION ="sUS 
00980 PRINT " 

00990 PRINT "PROPERTIES ABOUT THE Y~-Y AXIS" 
00992 PRINT "MOMENT OF INERTIA ="3U3 


AREA ="FT1 


00994 PRINT "NEUTRAL AXIS ---- ="sU4 
00996 FRINT "RADIUS OF GYRATION =" U6 
01000 END 


3s - i? 


oo 


PROGRAM NAME? ALPHABETIZE/FALE 


00001 
00010 
00020 
00030 
00035 
00037 
00038 
00040 
00050 
00060 


00070 
00080 
00090 
00100 
00105 
LN130 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 


7 
? 


7°? 


REM ALPHABETIZE/FALE 

REM THIS PROGRAM IS SET UP FOR A VIDEO TERMINAL 

FRINT "THIS PROGRAM WILL ALPHABETIZE A LIST OF NAMES" 

FOR L=O0TO 8tFRINT ¢NEXT L 

PRINT "ENTER THE LARGEST NUMBER YOUR LIST WILL CONSIST OF." 
INFUT X 

IF x<1GOTO 35 

DIM A$ (X) 

REM INPUT NAME SECTION 

PRINT “ENTER NAMES» LAST NAME FIRST. WHEN FINISHED TYFE Zz 


FOR N=1TO X 

LINE INFUT A#$(N) 

IF A$(N)="ZZ*GOTO 110 

NEXT WN 

REM TO ARRANGE THE LIST IN OPPOSITE ORDER CHANGE > TO < IN 


FOR J=1TO (N-1) 

FOR K=1TO (N-1) 

IF A$(J)>AS(CK)GOTO 170 

BS=A$(J) 

AS(J=ASCK) 

AS (K)=R$ 

NEXT K 

NEXT J 

PRINT (N~-1) " NAMES WERE EVALUATED" 
FOR M=1TO (N-1)3F RINT Me AS(M)SNEXT M 
END 
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FROGRAM NAME? 


CORRELATE/STOLARZ 


REM CORRELATION MATRIX FOR 2 TO 20 VARIABLES 
REM OUTFUT INCLUDES A CORRELATION MATRIX» MEANS AND STANDAR 


REM DEVIATIONS OF VARIABLES AND (OF TIONALLY) VALUES OF FISH 


REM Z’ AND HYPOTHESIS TEST FOR RHO 


REM 


= O- 


REM PROGRAM NO. 2 IN SPSC SERIES BY THEODORE J. STOLARZ 


REM 


DIM X(20) ¥X1(20) 9V1(20) 28(20) 9S2(20) rR( 380) 
PRINT "ENTER NUMBER OF VARIABLES ~ 20 MAXIMUM" 


INPUT N 


FRINT “ENTER NUMBER OF SUBJECTS IN THE PROBLEM" 


INFUT N? 


FRINT "LO YOU WANT A SIGNIFICANCE TEST FOR Rf" 


INPUT "1=YES# O=NO “+H 


PRINT "0 YOU WANT A LIST OF FISHER‘’S Z’ VALUES?" 


INPUT "1=YES# O=NO "82 


FOR I9=1 TO N? 


PRINT "ENTER VALUES FOR SUBJECT * 


FOR K?=1TO N 

INPUT XC(K9) 

NEXT K9 

FOR I=1TO N 
$(T)=S¢CI)+4+X¢T) 
$2(1T)=S2CT)+XC I) X(T) 
NEXT I 

L=1 

L2=N~1 

FOR I=1TO L2 

FOR K=1TO N 
RCLIBRCLI+FXCKIKXCT) 
L=L+l 

NEXT K 

NEXT I 

N1i=Ni¢1 

NEXT I9 

L=1 

FRINT 


i? 


PROGRAM NAME? CORRELATE/STOLARZ < CONT‘’D > 


03200 FOR I=1TO L2 

03300 FOR K=1TO N 

03400 R(LD=(NLERCLI-SCRIKSCT)) 

03500 R(LI=R(LI/SQRCCNIKS2(K)-SCRIKS CK) KCNTKS20T)-SCI)KSC(I))) 
03600 L=Lt1 

03700 NEXT K 

03800 NEXT I 

03900 PRINT "CORRELATION MATRIX BY ROWS" 
03910 GOSUB 8000 

05100 PRINT 

05150 FOR I=1TO N 

05200 X1¢(I)=S(LI)/N1 

05300 VIiCT)=(SQRCNIKS2°T)-SCI)*S¢CT)))/N1 
05400 NEXT I 

05500 FRINT TAB(S)#"MEANS AND) STANDARD DEVIATIONS" 
05550 PRINT 

05600 FOR I=1TO N 

05700 PRINT IrX1¢I)9V1i¢1) 

05800 NEXT I 

035900 FRINT 

06000 PRINT "NUMBER OF SUBJECTS IS "sN9 
06001 FRINT 

06010 FOR I=1TO N&X(N-1) 

06015 IF R¢(I)=1 GOTO 6025 

06020 R¢(I)=.5xX(LOGC1+R¢T))-LOGCI-RCI))) 
06025 NEXT I 

06030 IF Z=0 GOTO 6180 

06040 PRINT “MATRIX OF FISHER’S Z’ VALUES BY ROWS" 
06045 GOSUB 8000 

06180 S3=1/SQR(N9-3) 

06190 IF H=0 GOTO 6480 

06200 FOR [=1TO NxkK(N-1) 

06210 R¢CT)=RCI)/S3 

06220 NEXT I 

06230 FOR I=1TO NxX(N-1) 

06240 IF ABS(R(I))21.96 THEN RCI) =0 
06250 IF ABS(R(I))22.58 THEN RC(I)=1 
06260 IF ABS(R(IT))21.96 THEN R(I)=5 
06270 NEXT I 


ah 
i 

he 

ho 


PROGRAM NAME? CORRELATE/STOLARZ = CONT‘’D > 


06275 
06280 
06290 
06300 
06310 
06320 
06330 
06340 
06350 
06360 
06370 
06380 
06390 
06400 
06410 
06420 
06425 
06440 
06450 
06460 
06470 
06480 
06490 
08000 
08150 
08200 
08300 
08400 
08500 
08600 
08700 
08800 
08860 
08900 
08950 
089460 
08970 


PRINT 


PRINT "IN THE MATRIX BELOWs 1=P<.01% S=FP2.05% O=F> 


PRINT “HYPOTHESIS TEST FOR R=RHO=0" $FRINT 
A$=" 1 ° 

PRINT TAB(32) SASF ASFASFIASFASFASSASFASFASIASS® 2 * 
PRINT TABCS) 5 

FOR I=1TO 93FPRINT Is tNEXT ISPRINT “ 0 
FOR I=1TO 93PRINT Is tNEXT IT2PRINT " 0 
NS=N 

N3=1 

N4=NX(N~1) 

FOR I=1TO N4 STEP N 

FRINT N39 TABCS) ¢ 

FOR J=I TO NS 

FRINT R¢J)% 

NEXT J 

PRINT 

N3=N3¢1 

NS=NO+N 

NEXT I 

PRINT tFRINT "DONE" 

PRINT 

END 

PRINT 

NS=N 

N3=1 

N4=NXKCN-1) 

FOR I=1TO N4 STEP N 

PRINT "ROW" #N3 

FOR J=I TO NS 

FRINT R¢J)» 

NEXT J 

FRINT 

NS=N3+1 

NS=NS+N 

NEXT I 

RETURN 


5 = 23 


FROGRAM NAME? ONE-WAY ANALYSIS/STOLARZ 


01000 REM THIS PROGRAM FERFORMS A SINGLE FACTOR (ONE-WAY) ANALYS 
Is OF 

01010 REM VARIANCE ON ANY NUMBER OF TREATMENT GROUPS WITH ANY NU 
MBER 

01020 REM OF SUBJECTS FER GROUP. OUTFUT INCLUDES THE MEANS AND 
01030 REM VARIANCES FOR EACH GROUF AND A SUMMARY TABLE FOR THE AN 
ALYSIS,. 

01040 REM 

01050 REM FROGRAM BY THEODORE STOLARZ FOR THE HEATH H~8 COMPUTER. 
01060 REM 

01070 REM THIS FROGRAM WILL RUN ON REGULAR BASIC WITH 12K OF RAM, 
01080 PRINT 

01085 FS=0 

01090 PRINT "SINGLE FACTOR (ONE-WAY) ANALYSIS OF VARIANCE" 

01100 PRINT “HOW MANY TREATMENT GROUFS ARE IN THE PROBLEM" 

01110 INPUT G 

01120 FOR I[=1T0O G 

01130 PRINT “HOW MANY SURJECTS ARE IN GROUP" #TI 

01140 INFUT N 

01150 PRINT "ENTER VALUES FOR GROUF "$I 

01160 FOR J = 1 TON 

01170 INPUT X 

01180 S = S+x 

01190 S2 =S2+Xxx 

01200 N1 = Nitl 

01210 NEXT J 

01220 G1 = G1tS 


01230 S3 = $3+S2 

01240 N2 = N2tN1 

01250 M = S/N1 

01260 M2 = M2+MxXM 

01270 H = Hti/N1 

01280 T2 = T2+M 

01290 Vi = (NIkXS2-SkS)/CNIXNIL) 


01300 S4 = S4+(SkS)/N1 

01310 FRINT "MEAN OF GROUP" SIs "="5é 
01320 FRINT "VARIANCE OF GROUP" Ts *="s V1 
01330 S=0 

01340 $2=0 


FROGRAM NAME! ONE-WAY ANALYSIS/STOLARZ = CONT’D > 


M=0 

IF I=1 GOTO 1390 

GOTO 1400 

F4=N1 

IF F4 <>N1 GOTO 1420 

GOTO 1425 

FS=1 

N1=0 

NEXT I 

IF FS=1 GOTO 1460 

GOTO 1520 

PRINT "UNEQUAL TREATMENT N’S. TYPE 1 FOR UNWEIGHTED MEANS" 
PRINT "ANALYSIS? TYPE 2 FOR WEIGHTED MEANS ANALYSIS." 
INFUT RK 

IF R=1 GOTO 1510 

GOTO 1520 

H=G/H 

A=HX (M2~-(T2XT2)/G6) 

GOTO 1530 

A=S4-(GIXG1)/N2 

W=S3~-S4 

T=S3~—(GIXGLI/N2 

t1i=G-1 

D2=N2-G 

N3=N2-1 

M1=A/T1 

M2=W/T2 

F=M1/M2 

PRINT TAB(10)3"SUMMARY OF THE ANALYSIS" 


PRINT "SOURCE SUMS OF SQUARES DF MEAN SQUARES 


FRINT "AMONG GROUPS" ADL »M1rF 
PRINT "WITHN GROUPS" »WeD2eh2 


PRINT "TOTAL "yTrD3 


a) 
i 
hr 
ah 


-* 


<Het USK G> € FS SK O SK F FT Ft WOK A OX R OSE > 


FROGRAM NAME? ONE-WAY ANALYSIS/STOLARZ < CONT‘’D > 


01690 IF R“>1 GOTO 1720 
01700 FRINT "IN UNWEIGHTED MEANS ANALYSIS THE SUMS OF SQUARES MAY 


NOT" 
01710 FRINT “Abt UF TO THE TOTAL SUM OF SQUARES." 


01720 END 
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PROGRAM NAME? EQUATIONS/SHAFFER 


00001 GOSUE 700 

00002 PRINT "SIMULTANEOUS EQUATIONS/DI. SHAFFER 1/79/78" 

00004 CNTRL 3910 

00005 GOSUB 700 

00006 PRINT "DO YOU WANT INSTRUCTIONS ? (1= YES)" 

00007 INFUT X3IF X=1 THEN 710 

00019 CLEAR 

00020 INFUT “HOW MANY EQUASIONS ARE THERE? "3N 

00021 DIM ACNeNt1) eK ON) 9 LCNe ND oe TONO NEL) 9 XON) ¢SONFLD 

00022 PRINT “INPUT COEFFICIENTS OF THE MATRIX AS ASKED FOR. FIRS 
T NUMBER IS ROW." : 
00030 FOR I=1 TO NiFOR J=1 TO NiFRINT "AC*# Ts Je ")="FSINFUT ACT J) 
00040 NEXT JSNEXT I:FOR [=1TO N&PRINT "CONSTANTC"¢I¢")="s 3 INPUT A 
CIyNt1)3NEXT I 

00041 GOSUB 700 

00042 PRINT "i"siFOR IT=1TO NiFOR J=1TO NiPRINT ACI rJ)»3NEXT JSPRI 
NT "i" 
00043 PRINT 


"T"FSNEXT I 
00044 FRINT * 


00045 FOR I=1TO NiFPRINT * i"SACTeyNFtL)F "IT" SNEXT I 
00046 PRINT " 


":GOSUB 700 

00050 I=1itJ=4 

00060 IF A(IyJ)=0 THEN 70 

00061 GOTO 80 

00070 IF I=N THEN PRINT “NOT FROGRAMMED TO SOLVE THIS CASE"!STOF 
00071 I=I+1iGOTO 40 

00080 IF I=1 THEN 100 

00090 FOR J=1 TO N41{S1=AC1L9J) SACL eS) =ACI yd) tACI ed) =SL2NEXT J 
00100 I=13J=1 

00110 FOR I=1TO NiL(Iv1)=ACTv1)$T¢LyT)=12NEXT I 

00120 I=2tJ=2 

00130 FOR J=2TO NtiftT(1sJ)=ACLeJ)/ACL 21) ENEXT J 

00140 I1=2 


FROGRAM NAME? EQUATIONS/SHAFFER <= CONT’ > 


00150 
001460 
00170 
00171 
00180 
00181 
00190 
00200 
00210 
00211 
0022 

00221 
00222 
00230 
00231 
00240 
00250 
00251 
00260 
00270 
00280 
00281 
00282 
00290 
00291 
00300 
00301 
00310 
00320 
00321 
00500 
00501 
00510 
00520 
00530 
00540 
00550 
00560 
00561 


J=2 

M=1:S2=0 

S2=S24+hL.¢IlyM KTCMe JOS IF M=J-1 THEN GOTO 180 
M=M+13GOTO 170 

L¢IyJ=ACI»J)-S2? IF J=I THEN GOTO 190 


J=J+1iGOTO 140 

IF L¢IvI)=0 THEN S00 
J=J+1ih=13S53=0 
S3=SStL (Ie KOKTC Ke JOSIF KR=CI-1) THEN GOTO 220 
K=K+1;GOTO 210 
TOITyJ=(ACT 9 J)-S3)/L CIT) 

IF J=Nti THEN 230 

GOTO 200 

IF I=N THEN GOTO 240 
T=I+1iI1=I:GOTO 150 

I=1 

K(T)=T¢CIyNt1)2¢IF I=N THEN GOTO 260 
T=It1:GOTO 250 

X(NI=KON) $T=N-1 

$4=03 J=I+1 

IF J=Nti1 GOTO 290 
S4=S4t+7T CL» JKX CJ) 

J=J+1;GOTO 280 

X(TI=KCI)-S43 IF T=1 THEN GOTO 300 
I=I-1:GOTO 270 

FOR I=1 TO NéFPRINT "XC "sD" )="5XCLT) NEXT I 
GOSUB 700 

PRINT "NEW PROBLEM? (1=YES)" 

INPUT X3IF X=1 THEN 19 


STOF 

B=I3IF T1l=N THEN STOF 

J=1 

FOR J=1 TO Nt1iS(J)=ACTy J ¢NEXT J 
SS=L¢Iv1) 

J=1 

FOR J=1 TO Nt1iACITeJ=ACI+1l»J)SNEXT J 


L¢Tv1 =L¢I+tis1) 
IF I=(N-1) THEN GOTO 370 
T=I+13GOTO 330 


of 


a” 


“ree age” 


FROGRAM NAME? EQUATIONS/SHAFFER « CONT‘D = 


Sd 


ad 


ad 


FOR J=1 TO NtLiACNeyJ)=SCJ) NEXT J 
L(Ny1)=S5 
T1=I1itl 


I=B 


GOTO 150 
AOS="**4“""SFOR QB=1TO 223F RINT AOS$SNEXT QSBIFRINT * RETURN 


PRINT 
PRINT 


FRINT 
FRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FRINT 
PRINT 
PRINT 
PRINT 
FRINT 
PRINT 


FRINT 
GOSUE 


“THIS FROGRAM WILL SOLVE A SET OF SIMULTANEOUS EQUAST 


“USING THE CHOLESKY METHOD. THE COEFFICIENTS OF TH 
"SET OF EQUASIONS ARE INFUT ONE AT A TIME. THESE" 
"VALUES ARE STORED IN ARRAY A(NeN) BY THE FROGRAM" 
"THE VALUES ARE INFUT AS CALLED FOR BY THE PROGRAM" 
"SUCH AS A(192)--- THIS WOULD BE THE COEFFICIENT OF" 
"THE SECOND UNKNOWN IN THE FIRST EQUASION. * 

"IF A FARTICULAR UNKNOWN DOES NOT APFEAR IN AN * 
“EQUASION»y THEN ZERO SHOULD BE INFUT FOR THAT VALUE" 
"THE FROGRAM MUST HAVE AT LEAST AS MANY EQUASIONS AS" 
"THERE ARE UNKNOWN VALUES TO SOLVE THE PROBLEM." 
"NEXT INPUT THE CONSTANTS » THESE ARE THE VALUES" 
"THAT EACH OF THE EQUASIONS ARE EQUAL TO." 

"FOR A FULLER UNDERSTANDING OF THIS METHOD REFER TO" 
"THE TEXT ~~ MODERN METHODS OF ENGINEERING COMPUTATIO 


"BY ROBERT L. KETTER AND SHERWOOD F. FPRAWEL JR." 
700 


GOTO 19 
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oe 
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PROGRAM NAME? CLOCK/BENTON 


00001 
00002 
00100 
00105 
00110 
00120 
00125 
00130 
00132 
00134 
00135 
00136 
00138 
00140 
00142 
00144 
00158 
001460 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00270 
00280 
00300 
00310 
00320 
00330 
00340 
00350 
00355 
00360 
00370 
00400 
00410 


REM "CLOCK SEPT 1271977" 

REM FROGRAM TO TURN THE H8 CONSOLE INTO A CLOCK 
DIM N¢11) 

REM CONSTANTS FOR NUMERIC LED DISPLAY (0 THRU 9) 
DATA 129%243%200%224917891649132%24191289176 
FOR I=0 TO 9?READ NCI) NEXT I 

CNTRL 2r1 

POKE 8208*254¢FOKE 82057254 

REM T IS THE CLOCK TICK TIME AND CAN BE INCREASED OR 
REM DECREASED TO VARY CLOCK SFEED IF NECESSARY 
CNTRL 271 

T=1-.024 

K=23C=8220 

REM SET UF USRFCN TO CALL HORN 

POKE 17267794 

FOKE 1726872 

REM SET UF LED HOUR: MINy SEC SEPRATER 

INFUT “HOUR»MINsSEC’¢1 FOR AM OR 2 FOR PM) “sHyMeSrA 
IF A=1 THEN 200 

FOKE 82117152 

GOTO 210 

POKE 82117144 

H1i=INTCH/10) 

H2=INTCH)-H1*10 

M1=INT(M/10) 

M2=INTCM)~M1K10 

X=K AND FEEKCC) 

REM LOOF WAITING FOR NEXT TICK 

IF X=(K AND PEEKCC)) THEN 300 

X=K ANID PEEKCC) 

$=S+T 

IF $260 THEN S00 

S1i=ABSCINT(S/10)) 

S2=ABSCINT(S)-S1x10) 

REM UPDATE LED DISPLAY 

FOKE 8209*N(S1) 

FOKE 8210»N(S2) 

FORE 8206»N(M1) 

POKE 8207 »N(M2) 


‘ 


3 ~ 30 


oe 


PROGRAM NAME? CLOCK/BENTON = CONT‘D > 


00420 FOKE 8203/N¢(H1) 

00430 FOKE 8204»NC(H2) 

00440 GOTO 300 

00500 S=S-603M2=M2t1 

00510 IF M2210 THEN 340 

00520 M2=0 

00530 M1=M1+1 

00540 IF M1<6 THEN 340 

00544 REM SOUND HORN ON THE HOUR 
00546 Y=USR(1) 

00550 M1=0 

00560 H2=H2t1 

00565 IF H2=10 THEN 700 

00570 IF (H1=1) AND (H2=2) THEN 600 
00580 IF (H1kX10+H2)=13 THEN 750 
00590 GOTO 300 

00600 IF A=1 THEN 630 

00610 A=13POKE 82117144 

00620 GOTO 580 

00630 A=2:3POKE 82119152 

00640 GOTO S80 

00700 H2=0 

00710 H1i=1 

00720 GOTO 570 

00750 H1=0 

00760 H2=1 

00770 GOTO 340 


7 
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PROGRAM NAME? BIRTHDAY FACTS/ 


00005 
00010 
0001S 
00030 
00032 


REM BIRTHDAY FACTS/NAIMO 

PRINT "* 

FRINT " OOOO BOT R 
PRINT 


THD A Y OOOO" 


PRINT "THIS FROGRAM GIVES FACTS ABOUT YOUR DATE OF BIRTH (0 
RK SOME OTHER" 


00034 PRINT "DAY OF INTEREST). IT IS NOT FREFARED TO GIVE INFORMA 
TION ON" 

00036 FRINT "PEOPLE BORN BEFORE THE USE OF THE CURRENT TYFE OF CA 
LENDAR. * 

00038 FRINT * (MEANING BEFORE THE YEAR ’15827’)" 

00040 FAUSE (3500) 

00042 FRINT 

00044 PRINT “THE FROGRAM WILL ASK YOU TO SUPFLY THE MONTH: DAY & 


YEAR YOU WISH" 


TO GET AN ACCURATE RESFONSE » 


THE PROGRAM TO START: SIMPLY F 


00046 FRINT "TO KNOW ABOUT. IN ORDER 
BE SURE TO" 
00048 FRINT "TYFE THE INFORMATION AS IN THIS EXAMPLE: " 
00050 FRINT * YOU WANT TO TYPE THE FOLLOWING DATE-" 
00052 PRINT * NOVEMBER 7» 1977" 
00054 PRINT " *kxk THE CORRECT FORM FOR THE ABOVE DATE IS-" 
00056 FRINT * Lis791977" 
00058 FRINT " (THE YEAR MUST BE FILLED IN USING 4 NUMBERS)" 
00060 PRINT 
00062 FRINT “WHEN YOU’RE READY FOR 
RESS THE® 
00064 FRINT “’SFACEBAR’ KEY ONCE. "2 PAUSE 
00080 FRINT 
00120 FRINT 
00124 LET Y1=1970 
00130 FRINT "ENTER TODAY’S DATE IN THIS FORM:" 
00135 FRINT "MONTH? DAY: YEAR" » 
00140 INFUT ° Po "sM1le D1 ¥1 
00150 IF Yi>100 THEN 170 
00160 LET Y1=Y1+1900 
00170 DEF FN ACA)=INTCA/4) 
00180 DIM TC12) 
00190 DEF FN BCA)=INT(A/7) 


00210 


FOR I=1 TO 12 


FROGRAM NAME? BIRTHDAY FACTS/ < CONT‘’D > 


00220 
00230 
00240 
00244 
00245 
00247 
00250 
00260 
00270 
00275 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00570 


READ TCI) 

NEXT I 

FRINT 

FRINT 

PRINT "ENTER DATE OF BIRTH IN THIS FORM?" 
FRINT "MONTHS DAY» YEAR* ? 

INFUT * PP "sMellrY 

PRINT 

IF Y-95>0 THEN 280 

LET Y=Y¥+1900 

LET IT1l=INT(CY-1500)7100) 

IF Y~-1582<0 THEN 1300 

LET A=I1+5+¢11+3)74 

LET IT2=INTCA-FN BCADK?) 

LET Y2=INTCY/100) 

LET Y3=INTCY-Y2x100) 

LET A=Y3/44Y34047T (CM) +12 

LET B=INTCA-FN BCA)#7) 41 

IF M>2 THEN 470 

IF Y3=0 THEN 440 

LET TAi=INTCY-FN ACY) *4) 

IF T1220 THEN 470 

IF Be>0 THEN 420 

LET B=6 

LET B=E~-1 

GOTO 470 

LET A=I1-1 

LET T1l=INTCA~FN ACA) 4) 

IF T1=0 THEN 400 

IF Be>0 THEN 490 

LET B=7 

IF CYAKL24M1)KS1401<6(0YK1L 24M) 3140 THEN S50 
IF (YIKL24M1)K31404=CYK1 24M) K3140 THEN 530 
PRINT Me"s"sDe"s "eye" WAS A "3% 
GOTO 370 

PRINT Me"s"sle"s "sys" IS A "s 

GOTO 570 

PRINT Me"s"30e"s "sys" WILL BE A "S$ 
IF Be>1 THEN S90 


a ~ 33 


FROGRAM NAME? BIRTHDAY FACTS/ =< CONT’D = 


00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00835 
00840 
00850 
00860 
00870 
00880 
00890 
009090 
00920 
00940 
00950 
00960 
00970 


FRINT “THURSDAY * 

IF Bes2 THEN 610 

GOTO 1250 

IF Be>3 THEN 630 

FRINT "SATURIIAY" 

IF Be>4 THEN 650 

PRINT "SUNDAY" 

IF Be>S THEN 670 

FRINT "MONIIAY" 

IF Be>é THEN 690 

FRINT "TUESDAY" 

IF Bes7 THEN 710 

FRINT "WEDNESDAY" 

IF CY¥UKL24M1 KSLE01 = CYKL24+M) kS14+0 THEN 1140 
LET IS=Y1-Y 

PRINT 

LET Ié6=M1-™ 

LET I7=01-0 

IF I7>=0 THEN 790 

LET Ié=Ié6-1 

LET I7=17+30 

IF Ié>=0 THEN 820 

LET IS5=IS-1 

LET Ié6=Ié6+t12 

IF [S50 THEN 1310 

IF [7220 THEN 850 

IF [6220 THEN 850 

PRINT "XXX HAPPY BIRTHDAY xxx" 
PRINT " "9" "»"YEARS"»s "MONTHS "» "DAYS" 
PRINT "YOUR AGE "“sISrIé9I7 
LET A8=(ISK365)+ (16X30) 4I7+INT(I6/2) 
LET KS=IS 

LET Ké=I6 

LET K7=I7 

LET E=Y+éS 

LET F=.35 

FRINT "YOU HAVE SLEFT "» 

GOSUB 1370 

LET F=.17 


uo «34 


PROGRAM NAME? BIRTHDAY FACTS/ = CONT‘’D = 


00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01125 


o 
e 


01127 
01129 
01130 
01132 
01133 
01140 
01150 
01160 
01170 
01240 
01250 
012460 
01270 
01280 
01290 
01300 


01305 
EAR." 
01310 
01330 
01370 
01380 


PRINT “YOU HAVE EATEN "“y» 

GOSUB 1370 

LET F=.23 

IF KS>3 THEN 1040 

PRINT “YOU HAVE FLAYED "» 

GOTO 1080 

IF KS=9 THEN 1070 

PRINT “YOU HAVE FLAYED/STUDIED" » 
GOTO 1080 

FRINT “YOU HAVE WORKED/STUDIED" » 
GOSUB 1370 

PRINT "YOU HAVE RELAXED “**KS9Ké9K7 
FRINT 

PRINT “ “»"XxkYOU MAY RETIRE IN"¢E9 "xx" 


FRINT ° WHEN READY TO CONTINUE, PRESS ‘“SFACERAR’ KEY ONCE 


PAUSE ¢FPRINT 

PRINT “FRESS ‘1’ TO TRY ANOTHER DATEy OR" 
PRINT "’O’ TO END PROGRAM... YOUR RESPONSE FLEASE "3 
INFUT #R 

IF R=0 THEN 1580 

FOR Q=1 TO 2 

PRINT 

NEXT Q 

PRINT 

GOTO 240 

IF D=13 THEN 1280 

FRINT “FRIDAY * 


GOTO 710 

PRINT “FRIDAY THE 13TH ~-~ BEWARE!" 

GOTO 710 

FRINT "NOT PREPARED TO GIVE DAY OF WEEK FRIOR TO YEAR 1582 
PRINT " THE CURRENT CALENDAR DID NOT EXIST BEFORE THAT Y 
GOTO 1140 


LATA Ov 3» Be by Ly 49 by Br Sy Ov Ber SF 
LET K1i=INTCFXAS8) 
LET IS=INT(K1/365) 


v9 ~ 35 


ad 


FROGRAM NAMES 


01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 


7 
oe 


7 


BIRTHDAY FACTS/ = 


LET K1i=K1-(1S%*365) 
LET I6=INT(K1/30) 
LET I7=K1i-¢(T6x30) 
LET KS=KS-I5 

LET K6=K6-16 

LET K7=K7-I7 

IF K7>=0 THEN 1480 
LET K7=K7+30 

LET Ké=K6~1 

IF K6é>0 THEN 1510 
LET Ké=Kh6t12 

LET KS=KS~1 

FRINT ISvrIés1I7 
RETURN 

IF Ké=12 THEN 1550 
GOTO 1090 

LET KS=KS+1 

LET Ké=0 

GOTO 1090 

ENT 
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CONT‘’D = 
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oe 


nd 


of 


oe 
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7+ 
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oe 


FROGRAM NAME$ 


00010 
0 
00020 
LSoO 
00030 
RAM. 
00040 
00050 
00060 


REM 
REM 
REM 
REM 


REM 
REM 


ROUTINE 


00070 


ERSION 


00080 
TO 
00090 


ISPLAY 


00100 
FPEAR 
00110 
SION 

00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 


REM 


REM 


REM 


H 8 MUSIC CUT#1/MONTETITH 


THIS ROUTINE RESETS THE HIGH MEMORY LIMIT OF EXTENDE 
BENTON HARBOR BASIC 10.01.02. UF OR DOWN. IT WILL A 
SET OR DELETE THE ENTRY FOINT TO A USK FUNCTION PROG 
IT SCRATCHES ITSELF AFTER EXECUTION. 

THE CHANGES ARE PERMANENT UNTIL RESET AGAIN BY THIS 
OR SOME OTHER FROCEDURE. TO DUMP THE RECONFIGURED V 
FOR SUBSEQUENT RELOADING, SET MEMORY LOCATION 040000 


040031» REGISTER FC TO 040100» AND THE FRONT PANEL DD 


REM TO 103306. THE NORMAL IDENTIFYING MESSAGE WILL NOT A 


REM W 


REM i 
REM 
REM A 
REM 
REM 
REM 
REM 


HEN ‘GO’ IS PRESSED AFTER LOADING A RECONFIGURED VER 
UMPED IN THIS MANNER. 


UTHOR: 
ROBERT MONTEITH 
1111 CHURCH ST. APT. 601 
EVANSTON? ILL. 60201 


REM VERSION: 


REM 
REM 
PRINT ¢ 


IMIT"’ SPRINT 
00230 REM DETERMINE ‘’K’ BYTES OF UNBROKEN MEMORY ABOVE STARTING P 
QINT AT 8K 


00240 
00250 
00260 
00270 
00280 


K=20479 
E=FEER ¢ 
FOKE Ky 
IF FEEK 
K=K-409 


10.01.02. 


PRINT "RESET EXT. BH. BASIC 10.01.02. HIGH MEMORY L 


K> 

255 

(K)=255 THEN FOKE KrESK=K+40963GOTO 250 
é 


3 37 


PROGRAM NAME? H 8 MUSIC CUT#1/MONTEITH «= CONT’D > 


00290 K=(K+1)/1024-8 

00300 INPUT "HOW MANY ‘’K’ BYTES [DO YOU WISH TO ALLOCATE TO BASIC? 
"$B 

00310 B=ABSCINT(BK1024+.5)/1024)3IF B12 THEN GOSUB 720:GOTO 300 

00320 IF B=K THEN GOSUB 730?GOTO 300 

00330 IF B=K THEN U$="N"?GOTO 350 

00340 LINE INPUT "DO YOU WISH TO ENABLE THE USR FUNCTION? "sU$ 

00350 IF LEFT$(U$+s1)="N" THEN EL1=Oc3E2=O023FPRINT “USR FUNCTION DISAB 

LED":GOTO 490 

00360 IF LEFT$(USs1)<>"Y" GOTO 330 

00370 LINE INPUT "WILL YOU ENTER THE ENTRY ADDRESS IN OCTAL OR DE 

CIMAL? "5U$ 

00380 IF LEFT#(U$s1)<>"O" AND LEFT#$(U$s1)<2"D" GOTO 370 

00390 INPUT "ENTER ENTRY ADDRESS ~ "sESE=ABSCINT(E) )$IF LEFTS (US, 
1)="f" GOTO 460 

00400 F=O0;E2=INT(E/100000) {E=E-E2x1 000007 E1=E2k1638431F E2>3 THEN 
F=1 

00410 E2=INT(E/10000) SE=E-E2K1 00003 E1=E1+E2*k20482 IF E2>7 THEN F=1 

00420 E2=INT(E/1000) SE=E-E2KX1000%E1=E1L+E2k25631IF E2>7 THEN F=1 

00430 E2=INT(E/100) SE=E-E2x1003 EL=E1L+E2x46421F E223 THEN F=1 

00440 E2=INT(E/10) {E=E-E2x103E1=E1+E2k821IF E227 OR E>7 THEN F=1 

00450 E=EtE13IF F=1 THEN PRINT “INVALID OCTAL NUMBER"iGOTO 390 

00460 GOSUB 7403 IF (E/1024-8)>=K THEN GOSUB 730:GOTO 390 

00470 IF E«=(B+8)*1024-1 THEN PRINT “ADDRESS IS WITHIN BASIC" ?GOT 

0 390 

00480 REM SET USR FUNCTION ENTRY FOINT IN LOCATION 103163 

00490 FOKE 17267E23FOKE 17268%E1 

00500 PRINT ¢FPRINT “THIS ROUTINE SCRATCHES ITSELF AFTER EXECUTION 


00510 E=(8+R)*1024-1:GOSUB 740 

00520 REM SET HIGH CORE IN LOCATION 041157 

00530 POKE 8559E2:FOKE 8S540rsE1L{E=E~258:GOSUB 740 

00540 REM SET END OF USABLE CORE IN LOCATION 102362 

00550 FOKE 17138°E2;FPOKE 17139%E1 

00560 REM SET START OF TABLE AREAS (SYMBy FORL» GSUB» WORK» AND § 
TRN) 

00570 REM IN 3S LOCATIONS IN INCREMENTS OF S FROM 102331-102355. 
00580 REM <(NOTE--THE USE OF VARIABLES OR A LOOP HERE WOULD 

00590 REM CAUSE A MALFUNCTION BECAUSE OF THE ’FPOKES’ BEING 
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PROGRAM NAME? H 8 MUSIC CUT#1/MONTEITH = CONT‘’D > 


00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 


REM MADE INSIDE BASIC.> 

POKE 17113%1983POKE 17114967 

POKE 17118*1983POKE 17119+67 

POKE 1712321983 POKE 17124967 

POKE 1712871982 POKE 17129767 

POKE 1713371983POKE 17134967 

REM CLEAN UP 

CLEAR 

REM SET DUMMY STATEMENT 65535 IN LOCATION 103303 
POKE 173472 2553POKE 17348*2553POKE 1734970 

REM SET DUMMY STATEMENT LENGTH IN LOCATION 102326 
POKE 17110933POKE 17111°0:GOTO 65535 

PRINT "MINIMUM IS 12K" RETURN 

PRINT "MAXIMUM MEMORY IS"SLEFTS(STRE(K) 3) "K" SRETURN 
E1=INT(E/256) {E2=E-E12563 RETURN 


a2 «= oF 


PROGRAM NAME? H 8 MUSIC #2/MONTEITH 


00010 REM 
INTO 
00020 REM 
HED 
00030 REM 
PROGRAM 
00040 REM 
OADED 
00050 REM 
FIRST 
00060 REM 
TE THE 
00070 REM 
00080 REM 
00090 REM 
ELOADING 
00100 REM 


00110 REM 
00120 REM 
00130 REM 
00140 REM 
00150 REM 
001460 REM 
00170 REM 
00180 REM 
00190 REM 
00200 REM 


00210 PRINT 


THIS ROUTINE WILL LOAD AN ASSEMBLER LANGUAGE FROGRAM 
MEMORY ANYWHERE ABOVE THE HIGH MEMORY LIMIT OF EXTEN 
BENTON HARBOR BASIC 10.01.02. IT WILL RELOCATE THE 
TO ALLOW IT TO EXECUTE AT THE LOCATION WHERE IT IS L 
IF THE NECESSARY ADDRESSES ARE FLAGGED BY CODING THE 
BYTE AS A NEGATIVE NUMBER. IT WILL ALSO SET OR DELE 

ENTRY POINT TO A USR FUNCTION FROGRAM. 

THE RESULTING FROGRAM MAY BE DUMPED FOR SUBSEQUENT R 
BY FOLLOWING THE STANDARD PROCEDURES OUTLINED IN THE 
REFERENCE MANUAL. 

AUTHOR: 
ROBERT MONTEITH 
1111 CHURCH ST. AFT. 601 
EVANSTON: ILL. 60201 


VERSION: 
10.01.02. 


{PRINT "RELOCATE AND LOAD ASSEMBLER LANGUAGE FROGRAM" 


00220 REM DETERMINE BYTES OF UNBROKEN MEMORY ABOVE STARTING POINT 


AT 8K 


00230 CNTRL 4203K=20479 

00240 E=FPEEK(K) 

00250 POKE Kr255 

00260 IF PEEK(CK)=255 THEN POKE RrEtK=K4+4096:3G0TO 240 
00270 K=K-4096 

00280 REM DETERMINE HIGH MEMORY ADDRESS OF BASIC 
00290 B=FPEEK( 8559) +PEER (8560) K256 


a ~ 40 


PROGRAM NAME? H 8 MUSIC #2/MONTEITH < CONT‘’D > 


00300 A=K~-BiPRINT “MEMORY AVAILABLE IS"#As "BYTES. " 

00310 IF A=0 THEN FRINT "BASIC MUST BE RECONFIGURED TO ALLOW SPAC 
E.*3STOP 

00320 E2=FEEK (17267) {E1=FPEEK (17268) SU=ELX256+E2 

00330 GOSUE 770 

00340 PRINT "USK FUNCTION ENTRY FOINT NOW SET TO LOCATION" +E "OCT 

AL ("3 

00350 PRINT RIGHTS$(STR$(U) sLEN(STR#(U) )-1)%"DECIMAL).* 

00360 LINE INFUT "DO YOU WISH TO CHANGE THE ENTRY FOINT? "US 

00370 IF LEFT#(U$»1)="N"* THEN U1=E3GOTO 460 

00380 IF LEFT#(U$s1)<>"Y" GOTO 340 

00390 LINE INPUT “WILL YOU ENTER THE ENTRY ADDRESS IN OCTAL OR DE 

CIMAL? "$US 

00400 US=LEFT$(U$*1)21IF U$e>"O" AND USe>"D" GOTO 3970 

00410 INPUT "ENTER ENTRY ADDRESS ~ "sSESE=ABSCINT(E)) IF U$="D" GO 

TO 430 

00420 F=O0:tGOSUR 800%IF F=1 THEN PRINT “INVALID OCTAL NUMBER": GOTO 
410 

00430 IF E<B THEN FRINT “ADDRESS IS WITHIN BASIC":GOTO 410 

00440 IF E=K THEN FRINT “ADDRESS EXCEEDS HIGH MEMORY":GOTO 410 

00450 UsEtE1=INT(E/256) $E2=E-ELk2562POKE 172679E22POKE 17268%E1:G 
OSUB 7703U1=E 

00460 IF U=Bt1 THEN E=U?GOTO 590 

00470 PRINT "SPECIFY WHERE YOU WISH TO LOAD THE FROGRAM:" 

00480 FRINT " 8B IMMEDIATELY FOLLOWING BASIC" 

00490 FRINT " O WILL ENTER LOAD ADDRESS IN OCTAL" 

00500 LINE INFUT 0 = WILL ENTER LOAD ADDRESS IN DECIMAL — "sU$ 
SUS=LEFTS(USs 1) 

00510 IF UsS="BR" THEN E=B+1:GOTO 590 

00520 IF U$<>"O" AND US$<e>"D" GOTO 470 

00530 INPUT "ENTER LOAD ADDRESS - "sE2SE=ABSCINTC(E)) 

00540 IF U$="" GOTO 540 

00550 F=O0:GOSUB 800tIF F=1 THEN FRINT “INVALID OCTAL NUMBER" ?GOTO 
330 

00560 IF E<E THEN PRINT "ADDRESS IS WITHIN BASIC*:GOTO 530 

00570 IF ExK THEN FRINT “ADDRESS EXCEEDS HIGH MEMORY":GOTO 530 
00580 IF EzU THEN FRINT "ADDRESS EXCEEDS ENTRY ADDRESS":GOTO 530 
00590 L=EtE1=INT(E/256) $E2=E-E1k2563GOSUB 7703L1=E 

00600 REAL UStPRINT SPRINT “FROGRAM BEING LOADED IS: "sus 
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FROGRAM NAME? H 8 MUSIC #2/MONTEITH «= CONT‘D > 


00610 READ O1°3E=01:F=0;GOSUB 800;0=E 

00620 IF F=1 THEN PRINT "ASSEMBLED ORIGIN GIVEN IS INVALID OCTAL 

NUMBER" $ STOP 

00630 REM RELOCATE AND LOAD THE PROGRAM 

00640 FRINT ° ASSEMBLED ORIGIN IS? "01 

00650 FRINT ° RELOCATED ORIGIN IS? "slLiiR=L-O 

00660 PRINT * ENTRY POINT SET TO? "sU1 

00670 IF L>K THEN PRINT "PROGRAM LENGTH EXCEEDS AVAILABLE MEMORY" 
3 STOF 

00680 READ E2:F1=SGN(E2)2S=ARS(E2)31IF E2>377 GOTO 750 

00690 F=0;3GOSUB 8460;IF F=1 THEN PRINT "INVALID OCTAL NUMBER"? GOTO 
750 

00700 E2=SiIF Fi>=0 THEN POKE LrSiL=L+1iGOTO 670 

00710 READ ELSIF E1>377 THEN PRINT "ERROR--2 BYTES MUST BE RELOCA 
TED" {GOTO 750 

00720 IF E1<0 THEN FRINT "“ERROR~-ONLY FIRST BYTE CAN BE NEGATIVE 
*3GOTO 750 

00730 S=E1:F=03GOSUB 860;3IF F=1 THEN PRINT “INVALID OCTAL NUMBER" 
*GOTO 750 

00740 E=Skx256+E2+Ri E1L=INT(E/256) SE2=E-E1k256i3FOKE LrE23FOKE LtisE 
1:L=L+2:;GOTO 670 

00750 L=L~-1iEL1=INT(L/256) {E2=L-E1x256:GOSUB 770 

00760 FRINT * LAST ADDRESS LOADED? "sEtCNTRL 4%1°GOTO 65535 

00770 X=INT(E1/64) $E1=E1-X*643 Y=INT(E1/8) 3 Z=E1-YXBIE=(XKLOOFYKLOF 

Z*K1000 

00780 X=INT(E2/64) SE2=E2-X*643 Y=INTCE2/8) 3 Z=E2-YKBSE=E+XKLOOFYK10 


00790 RETURN 

00800 E2=INT(E/100000) SE=E-E2x1Q00007 E1L=E2k14638431IF E2>3 THEN F=1 
00810 E2=INT(E/10000) {E=E-E2x10000SEL=E1L+E2k204821IF E227 THEN F=1 
00820 E2=INTCE/1000) SE=E-E2x1000%E1L=EL+tE2k25621F E2>7 THEN F=1 
00830 E2=INT(E/100) SE=E-E2X100%E1L=E1tE2k642 IF E2>3 THEN F=1 

00840 E2=INT(E/10) SE=E-E2xK107E1=E1+E2k8+E3 IF E2>7 OR E>7 THEN F=1 
00850 E=E13RETURN 

00860 X=INT(S/100) $S=S—-Xk1003Y=Xx4642 IF X>3 THEN F=1 

00870 X=INT(S/10) $S=S-Xk1023 Y=Y+Xx8+S3IF X>7 OR S=?7 THEN F=1 

00880 S=Y?RETURN 

01000 TATA "FLAY" +140000 

01001 DATA 041%-150%160 


PROGRAM NAME? H 8 MUSIC 


01002 
01003 
01004 
01005 
01006 
01007 
01008 
01009 
01010 
01011 
01012 
01013 
01014 
O1015 
010146 
01017 
01018 
01019 
01020 
01021 
01022 
01023 
01024 
01025 
01026 
01027 
01028 
01029 
01030 
01031 
01032 
01033 
01034 
01035 
01036 
01037 
01038 
01039 
01040 


DATA 
DATA 
DATA 
LATA 
LATA 
TATA 
LATA 
DATA 
DATA 
LATA 
HATA 
DATA 
LATA 
LATA 
DATA 
DATA 
DATA 
DATA 
TATA 
LATA 
DATA 
LATA 
ATA 
TATA 
IATA 
LATA 
DATA 
DATA 
LATA 
DATA 
LATA 
DATA 
LATA 
LATA 
DATA 
LATA 
DATA 
DATA 
DATA 


345 

341 

124 

043 

136 

043 

172 

263 
3122-1137160 
106 

043 

116 

043 

345 

170 

261 
3129~-0707140 
140 

151 

0767020 
315%-0437160 
303%~-0047160 
361 

3542200 

3465 

104 

115 

323% 360 

013 

170 

261 
3029-0527160 
033 

172 

263 

302 %-0427160 
361 

311 

076%220 


#2/MONTEITH = 
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7 


FROGRAM NAME? H 8 MUSIC #2/MONTEITH <= CONT’D > 


01041 DATA 323%3640 
01042 TATA 0047062 
01043 DATA 005 

01044 TATA 302%-0767160 
010435 TATA 033 

01046 TATA 172 

01047 DATA 243 

01048 DATA 3029-074%160 
01049 DATA 303%-0049160 
01050 DATA 04170117040 
01051 DATA 1764 

01052 DATA 3239360 
01053 DATA 311 

01054 DATA 257 

01055 DATA 06270107040 
01056 DATA 315%~-0007160 
01057 DATA 146 

01058 DATA 303%9-122%160 
09999 TATA 999 


77 
oF 
hd 
7 
7 
oe 
oo 
* 
7? 
oe 
*? 
+? 
o+ 
+ 
o 
Sad 
+ 
77 
+ 
2 
oo 
oe 
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FROGRAM NAME? H 8 MUSIC #3/MOMTEITH 


00010 REM MUSICAL SCORE PREPARATION FROGRAM 

00020 REM THIS FROGRAM CALCULATES PITCH AND DURATION 

00030 REM CONSTANTS FOR THE 8080 ASSEMBLY LANGUAGE 

00040 REM ROUTINE "FLAY". 

00050 REM 

00060 REM ROUTINE TO RESTART TRANSLATION AFTER LAST FREVIOUSLY TR 
ANSLATED NOTE 

00070 IF U=0 GOTO 100 

00080 RESTORE {C=V-1{READ KSrK46sKS=KS/602K6=K6/KS2 IF V=O GOTO 95 
00090 FOR V=0 TO CiREAD Z1$2NEXT 

00095 C=C+1:GOTO 150 

00100 REM U DEFINES SCORE AREA IN MEMORY - USR FUNCTION ADDRESS + 
100 

00110 U=PEEK( 17267) +PEEK (17268) k2564+100 

00115 Q1=(1.024k10°6)/2 

00117 Q2=(2.048k10°6)/781/23REM USE INSTEAD OF Fi IF REST INSTEAD 
OF NOTE 

00120 K1=27(1/12) 

00125 DIM Z$¢5) 

00130 REM TEMPO CONTROL ~~ ENTERED IN FIRST DATA STATEMENT AS 2 V 
ALUES: 


00131 REM 1. NUMBER OF BEATS PER MINUTE 

00132 REM 2. "T" VALUE OF TYPE OF NOTE WHICH IS 
TO 

00133 REM RECEIVE 1 BEAT (SEE VALUES IN STATE 
MENTS 

00134 REM 455-500) 

00135 C=0 


00140 READ KSrK6tKS=KS/602K6=K6/K5 
00150 CNTRL 490 

00160 FOR Vel TO 1000 

00170 READ Z1¢% 

00180 FOR W=1 TO S 

00190 Z$(W)=MINS(Z1$9Wr 1) 

00200 NEXT 

00210 C=1 

00220 N=100 

00230 IF Z$(1)="A" THEN N=1:3GOTO 320 
00240 IF Z#(1)="B" THEN N=3:2GOTO 320 


FROGRAM NAME? 


00250 
00260 
00270 
00280 
002909 
00295 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00405 
00410 
00415 
00420 
00425 
00430 
00435 
00440 
00450 
00455 
00460 
00463 
00465 


00467 | 


00470 
00475 
00480 
00490 
00500 
00510 
00520 


00525 


H 8 MUSIC 


Z$(1)="C" 
Z$(1)="r" 
Z$(1)="E" 
Z$(1)="F" 
Z$(1)="G" 
Z#(1)="R" THEN 
Z$(1)="X" GOTO 
N=100 GOTO 760 


THEN 
THEN 
THEN 
THEN 
THEN 


M=100 

IF Z$(2)=" * 
IF Z$(2)="#" THEN 
IF Z$(2)="!" THEN 
IF M=100 GOTO 760 
C=3 


THEN 


Z$(3)="L" 
Z2$(3)="O" 
Z$(3)="1" 
Z$(3)="2" 
Z$(3)="3" THEN 
Z2$(3)="4" THEN 
F=100 GOTO 760 


THEN 
THEN 
THEN 
THEN 


#3/MOMTEITH 


GOTO 320 
GOTO 320 
GOTO 320 
sGOTO 32 
GOTO 440 


NZZZZZzSX 


hak oi oH OH 


cornu Gas 
oe mb Oe Of oe OO 


M=NiGOTO 380 
M=N+1i3GOTO 3 
M=N-1LiGOTO 3 


F=MiGOTO 435 
F=M+123G0TO 
F=4+24$GOTO 
F=M+363G0TO 
FP=M+48:G0TO 
F=4+603G0TO 


P=P+O?REM TRANSPOSE BY ADDING 


Z$(4)="C" 
Z$(4)="°S" 
Z$(4)="F" 
Z2$(4)="R" 
Z2$(4)="T" 
2$(4)="E* 
Z2$(4)="A* 
Z$(4)="Q" 
Z$(4)="H" THEN 
Z$(4)="W" THEN 
T=100 GOTO 740 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


IF Z$(5)="" 


T=323G0TO 
T=16:GOTO 
T=143GOTO 
T=123G0TO 
T=103G0TO 
T=83GO0TO 
T=62G0TO 
T=43G0TO 
T=23G0TO 
T=13G0TO 


[wg 
we 


o2 

32 
v.20 
v20 
v20 
w20 
520 


GOTO S45 
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< CONT‘’D > 


0 


80 
80 


435 
435 
435 
435 
435 


SEMITONES INSTEAD OF ZERO 


0 


320 
920 


O;REM TRIPLET EIGHTHS 
0 


?REM TRIPLET QUARTERS 


Hr UPR G> < GS PC OD F OS TP WOK A PKR PE > 


FROGRAM NAME? H 8 MUSIC #3/MOMTEITH «= CONT‘D > 


00530 IF Z$(S)="." THEN T=2xT/3:GOTO 545 

00535 IF Z$(S)="3" THEN T=4xT/7 

00540 REM CALCULATE CONSTANTS 

00545 IF N=0 THEN F1=Q2:K3=0:GOTO S80 

O0OS50 Fi=S5k(K17(P-1)) 

00560 T1=Q1/F1 

00570 K3=(T1-36)/12 

00580 K4=2kxF1XK6/T 

00581 REM CALCULATE DURATION ADJUSTMENT FOR ROUNDING ERROR IN FIT 


CH 
00582 REM CINSIGNIFICANT FOR LOW NOTES, BUT SIGNIFICANT FOR 
00583 REM HIGHER NOTES OF LONGER DURATION. ) 


00584 Q3=INT(K3+.5) 

00585 Q4=K4k(K3-Q3)*24/ (Q3K24+72) 

00586 K4=K4+Q4 

00590 REM MAKE DURATION EVEN 

00600 D4=INT(R4t. 9) 

00610 REM CALCULATE DURATION 2 BYTES 

00620 DS=INT(04/256) {REM MOST SIGNIFICANT DIGIT 

00625 [6=D4-D5k256tREM LEAST SIGNIFICANT DIGIT 

00630 REM CALCULATE PITCH 2 BYTES 

00640 l7=INT(Q3/256) REM MOST SIGNIFICANT DIGIT 

00645 N8=Q3-D7*k256tREM LEAST SIGNIFICANT DIGIT 

00650 REM TRANSFER CONSTANTS TO SCORE AREA 

00660 POKE Us DS2U=Ut1 

00670 FOKE UsD6sU=Ut1 

00680 FOKE UrD72U=Ut1 

00685 POKE Us D82U=Ut1 

00690 PRINT VtisSPC(7-LENCSTRS (VFL) 5 

00700 NEXT 

00710 PRINT "SCORE EXCEEDS THE 4K MEMORY ALLOCATED, "?U=U-4 
00720 FOKE U0 

00725 POKE Utir9 

00730 PRINT 

00740 FRINT "SCORE COMPILATION COMPLETE!" 

00741 CNTRL 471 

00743 FRINT "CTL KEYS ARE INOPERATIVE DURING PLAYING OF PIECE" 
00745 PRINT "SET SFEAKER SWITCH FOR MUSIC ~ TYPE SFACE TO PLAY"3SF 


00750 B1=USR(O) 
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PROGRAM NAME? H 8 MUSIC #3/MOMTEITH < CONT‘’D > 


00751 PRINT :FRINT “RESET SFEAKER SWITCH IF FINISHED, OR TYPE CON 
TINUE TO REPLAY" 

00755 PRINT "MORE NOTES (ADDITIONAL DATA STATEMENTS) MAY BE ADDED 
BEFORE" 

00756 PRINT * TYPING CONTINUE» AND THE TRANSLATING FROCESS WILL 
CONTINUE" 

00757 PRINT * WITH THE NOTE FOLLOWING THE LAST NOTE PREVIOUSLY 
TRANSLATED, * 

00758 STOP 

00759 GOTO 750 

00760 PRINT {PRINT “ERROR IN NOTE #€"5V+41 

00770 PRINT “DATA STRING "#Z1% 

00780 PRINT "CHARACTER #"3C 

00790 PRINT "AFTER CORRECTING THE DATA STATEMENT» TYPE CONTINUE. * 
*STOF {GOTO 10 

00810 REM "THE ENTERTAINER" BY SCOTT JOPLIN 

00820 DATA 90+4 

00830 DATA "D 39"»"E 3S"*"C 3S"9"A ZE"»+"B 3S"9"G 2E" 

00840 DATA "D 25"r"E 25"r"C 2S5"2"A 2E"y"B 25"%2"A 25%, "Al2g" 

00850 DATA "G 1Q"s"G ZE"s"D 1S"» "eis" 

00860 DATA "E 1S"r"C 2E"**"E 1S"9"C 2E"s"E 18"»"C 2Q." 

00870 DATA "C 3S"s"D 3S", "hss" 

00880 DATA "E 35"*"C 3S8"r"D 39","E 3E" 

00890 DATA "RB 3S"»"n 3E" 

00900 DATA "C 3Q."r"D 1S9"»*"D#1s" 

009710 DATA “E 1S"9"C 2E"*s"E 1S"s"C 2E*»s"E 1S"*s"C 20." 

00920 DATA "C 25"*"A 3S%e"G 25" 

00930 DATA "F#2S"9"A 35"*"C 3S" "E ZE"e"D 3S"¥"C 3S"y"A 3S" 

00940 DATA "D 3Q."*"D 19"» "1s" 

00950 DATA “E 1S"*"C 2E"*"E 1S"y"C 2E"»s"E 1S"»"C 2a," 

00960 DATA "C 38%, "D 3S"»"n#t3g5" 

00970 DATA "E 35"s"C 35*y"D 3S9"*"E 3ZE"»"B 35"9"D 3E" 

00980 DATA "C 3Q."r"C 3S"*"h 3g" 

00990 DATA "E 3S"»"C 35"s"D 3S" "E ZE"»y"C 3S"e"D 3S"»9"C 3g" 

01000 DATA "E 3S"r"C 35"e"D 3S*e"E 3ZE"»s"C 35"e"D 39"»"C 3g" 

01010 DATA "E 3S"*"C 39%, "D 38"*"E ZE*»s"B 3S"e"n 3E" 

01020 DATA "C 3Q"%*s"C 3S"*"E 25"9"F 29", "F#25" 

01030 DATA "G 2E"s"A 35"9"G ZE"s"E 25"""F 25", "F#25" 

01040 DATA "G 2E"*s"A 35"2"G 2E"*"E 25"9"C 25"r"G 1s" 


PROGRAM NAME! H 8 MUSIC #3/MOMTEITH = CONT’D > 


01050 DATA "A 28% "B 25% "C 29% "D 2S"r"E 25"7"D 25"9"C 25"%"D 2S 


01060 DATA "C 2E**"G 1E"*"C 1E” 
09999 LATA "xX" 
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PROGRAM NAME? H 8 MUSIC #4/MONTEITH 


00010 REM MUSICAL SCORE FREFARATION FROGRAM 

00020 REM THIS FROGRAM CALCULATES FITCH AND DURATION 

00030 REM CONSTANTS FOR THE 8080 ASSEMBLY LANGUAGE 

00040 REM ROUTINE "FLAY". 

00050 REM 

00060 REM ROUTINE TO RESTART TRANSLATION AFTER LAST PREVIOUSLY TR 
ANSLATED NOTE 

00070 IF U=O GOTO 100 

00080 RESTORE ?C=V-13READ KSyK6$KS5S=KS/602K6=K6/K52 IF V=0 GOTO 95 
00090 FOR V=0 TO C?READ Z1$tNEXT 

00095 C=C+1iGOTO 150 

00100 REM U DEFINES SCORE AREA IN MEMORY ~- USR FUNCTION ADDRESS + 
100 

00110 U=PEEK (17267) +FEEK (17268) k2564+100 

00115 Q1=(1.024k1076)/2 

OO117 Q2=(2,048k10°6)/781/23REM USE INSTEAD OF Fi IF REST INSTEAD 
OF NOTE 

00120 K1=2° (1/12) 

00125 DIM Z$(5) 

00130 REM TEMFO CONTROL ~- ENTERED IN FIRST DATA STATEMENT AS 2 V 
ALUES? 


00131 REM 1+ NUMBER OF BEATS PER MINUTE 

00132 REM 2+ "T"* VALUE OF TYPE OF NOTE WHICH IS 
TO 

00133 REM RECEIVE 1 BEAT (SEE VALUES IN STATE 
MENTS 

00134 REM 455-500) 

00135 C=0 


00140 READ KSrK6?KS=K5/602K6=K6/K5 
00150 CNTRL 4%0 

001460 FOR V=C TO 1000 

00170 READ Z1$ 

00180 FOR W=1 TO § 

00190 Z$(W)=MINS(Z1GeWe ld 

00200 NEXT 

00210 C=1 

00220 N=100 

00230 IF Z$(1)="A" THEN N=1:GOTO 320 
00240 IF Z$(1)="B" THEN N=33GOTO 320 


FROGRA 


00250 
002460 
00270 
00280 
00290 
00295 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00405 
00410 
00415 
00420 
00425 
00430 
00435 
00440 
00450 
00455 
00460 
004463 
00465 
00467 
00470 
00475 
00480 
00490 
00500 
00510 
00520 
00525 


M NAME? H 8 MUSIC #4/MONTEITH = CONT‘’D > 
IF Z$(1)="C* THEN N=43GOTO 320 
IF Z$(1)="D" THEN N=63GOTO 320 
IF Z$(1)="E* THEN N=8i3GOTO 320 
IF Z$(1)="F" THEN N=93GOTO 320 
IF Z#(1)="G" THEN N=11i3GOTO 320 
IF Z$(1)="R" THEN N=O0:3GOTO 440 
IF Z$(1)="X" GOTO 720 

IF N=100 GOTO 760 

=2 
M=100 

IF Z$(2)=" " THEN M=NiGOTO 380 
IF Z$(2)="#" THEN M=N+1°2GOTO 380 
IF Z$(2)="!" THEN M=N-1:GOTO 380 


IF M=100 GOTO 760 


C=3 

F=100 

IF Z$(3)="L" THEN P=MiGOTO 435 

IF Z$(3)="0" THEN P=Mt12:G0TO 435 

IF Z$(3)="1" THEN F=M+24iGOTO 435 

IF Z$(3)="2" THEN FP=Mt36iGOTO 435 

IF Z$(3)="3" THEN P=Mt48:GOTO 435 

IF Z$(3)="4" THEN F=Mt603GOTO 435 

IF F=100 GOTO 740 

F=P+OIREM TRANSFOSE BY ADDING SEMITONES INSTEAD OF ZERO 
C=4 

T=100 

IF Z$(4)="C* THEN T=32:GOTO 520 

IF Z$(4)="S" THEN T#16:GOTO 520 

IF Z$(4)="F* THEN T=14:GOTO 320 

IF Z$(4)="B" THEN T=12:GOTO S20?REM TRIPLET EIGHTHS 
IF Z$(4)="D" THEN T=10:3GOTO 520 

IF Z$(4)="E* THEN T=8?GOTO 520 

IF Z$(4)="A" THEN T=6!GOTO S20?REM TRIPLET QUARTERS 
IF Z$(4)="Q* THEN T=4:GOTO S20 

IF Z$(4)="H" THEN T=2:GOTO S20 

IF Z$(4)="W" THEN T=1iGOTO S20 

IF T=100 GOTO 760 

C=5 

IF Z#(5)="" GOTO 545 


3 Oe 


PROGRAM NAME? H 8 MUSIC #4/MONTEITH < CONT‘’D > 


00530 IF Z$(5)="." THEN T=2kT/3iGOTO 545 

00535 IF Z$(5)="3" THEN T=4xT/7 

00540 REM CALCULATE CONSTANTS 

00545 IF N=0 THEN F1i=Q2?K3=0:GOTO 580 

00550 F1l=SSK(KI7(P-1)) 

00560 T1=Q1/F 1 

00570 K3=(T1-36)/12 

00580 K4=2kF1XK4/T 

00581 REM CALCULATE DURATION ADJUSTMENT FOR ROUNDING ERROR IN FIT 


00582 REM 
00583 REM 


CINSIGNIFICANT FOR LOW NOTES» BUT SIGNIFICANT FOR 
HIGHER NOTES OF LONGER DURATION. ) 


00584 Q3=INT(K3+.5) 

00585 Q4=K4K(K3-Q3)*24/(Q3K24472) 

00586 K4=K4+Q4 

00590 REM MAKE DURATION EVEN 

00600 D4=INT(K4+.5) 

00610 REM CALCULATE DURATION 2 BYTES 

00620 DS=INT(04/2546) REM MOST SIGNIFICANT DIGIT 
00625 06=D4-D5x256%REM LEAST SIGNIFICANT DIGIT 
00630 REM CALCULATE PITCH 2 BYTES 

00640 D7=INT(Q3/256)3REM MOST SIGNIFICANT DIGIT 


00645 18=Q3- 


D7K256:REM LEAST SIGNIFICANT DIGIT 


00650 REM TRANSFER CONSTANTS TO SCORE AREA 
00660 POKE Ur DStU=U+1 
00670 POKE UsD6?U=U+1 
00680 POKE Url72U=U+1 
00685 POKE Url8iu=U+1 


00690 PRINT 
00700 NEXT 
00710 PRINT 


VELe SPCC 7-LENCSTRS (VEL) ) 5 


"SCORE EXCEEDS THE 4K MEMORY ALLOCATED. "tu=U-4 


00720 FOKE U0 
00725 FOKE U+t1s0 


00730 PRINT 
00740 PRINT 
00741 CNTRL 
00743 PRINT 
00745 PRINT 


"SCORE COMPILATION COMPLETE! * 

Ari 

“CTL KEYS ARE INOPERATIVE DURING FLAYING OF FPIECE* 
"SET SPEAKER SWITCH FOR MUSIC ~— TYFE SFACE TO PLAY"!F 


00750 B1i=USR(O) 


an 
i 

oh 

th 
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PROGRAM NAME: 


H 8 MUSIC #4/MONTEITH 


< CONT’D > 


00751 FRINT tPRINT "RESET SPEAKER SWITCH IF FINISHED? OR TYPE CON 
TINUE TO REPLAY" 
00755 PRINT "MORE NOTES (ADDITIONAL DATA STATEMENTS) MAY BE ADDED 
BEFORE ® 


00756 PRINT * 


CONTINUE * 


00757 PRINT " 


TRANSLATED. * 


00758 
00759 
00760 
007790 
00780 
00790 
;STOF 
00899 
A" 

00900 
00901 
00902 
00903 


00904 
00905 
00906 
00907 


00908 
00909 
00910 


oo71l 
00912 
00913 
00914 
0091S 
00916 


STOF 
GOTO 


7590 


PRINT {PRINT “ERROR IN NOTE #°3V+1 
PRINT "DATA STRING "#214 
PRINT “CHARACTER #°#C 


PRINT 


:GOTO 10 


REM 


DATA 
DATA 
DATA 
HATA 


DATA 
DATA 
DATA 
DATA 


DATA 


DATA 


DATA 


DATA 
LATA 
LATA 
LATA 
DATA 
DATA 


"BOUREE ANGLAISE* 


"E 2E"v"A 25","B 
"A 2E*,*E 2E"?°E 
“E 15*s*F 129°s"E 


"E 15°,"F 1S*%9°E 
*o 25*%s"*F 2E7s"D 
"E 28"*"C 25°*°G 
"E 25"*"G 29"r°E 


"Dp 25"s"G 25°s°D 
"E 25"°G 25"%°E 
"pn 28"*"G 29"*"D 


"E 1S",*"F 1S°:"G 
"C 28"»"B 25°2"C 
"F 165"%s"C 25°s"F 
"FEIS"y"A 25°, "D 
"BR ZE*x"A 35"%"G 
"E 2S"*"D 25%2"E 


FROM J.S. BACH’S 


2S","C 2E"»"B 
2QQ" 
18*s"E 23"s"E 


iS*,s'C 25"»s"B 
25",9"B 25"%9"G 
2E"»"G 2Q" 

25"""C 25%2"G 


29"r"B 25"%"G 
2S"r"C 25"%?°G 
2S","BR 25"%%"G 


1E"*"G 1S"r"A 
2E*»"B!I3Q" 
2E"s"A 35"2"G 
2E"»s"C 3Q" 
25"9"D 3E"s"F 
2E*s"*C 4E°s*E 


25"9"A 25"»"GEIE" 


16° s*F 


iS*,"E 


25" "GEIS"? "E 


= 


tS" 9 "Ct 


15°*°B 


is"»"C 2 


1S*%9"B 2 


25""B 
25"7"A 


2k" 
Ze” 


2S°s"E 


1S"s"D 


TYPING CONTINUE? AND THE TRANSLATING PROCESS WILL 


WITH THE NOTE FOLLOWING THE LAST NOTE PREVIOUSLY 


“AFTER CORRECTING THE DATA STATEMENT» TYPE CONTINUE." 


"A MINOR FLUTE SONAT 


PROGRAM NAME? 


00917 


00918 
00919 
00920 
00921 
00922 
00923 
00924 
00925 
00926 
00927 
00928 
00929 


00930 
00931 
00932 


00933 
00934 
00935 
00936 
00937 
00938 
00939 


00940 
00741 
vo?42 
00943 
00944 


0094S 
00946 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
ATA 
DATA 
DATA 


LATA 
DATA 
DATA 
DATA 
DATA 
DATA 
LATA 
DATA 
DATA 
DATA 
LATA 
DATA 
DATA 


DATA 


DATA 


DATA 
DATA 


< G > © S$ +4 O >< F > Wet ASL R Se E 3 
H 8 MUSIC #4/MONTEITH < CONT’D > 

"F 25° "A 3S"e"F 25"%7"D 25"e"D 25"e"F 25" "D 25"»"B 2S 
"B 25"2"D 25" "B 29"s"G 19"»9"G Z2E"*s"F 2E" 

"E 2E"s"D 29°s"C 25"2"D 2E"s"B 2E" 

“C 20s"9"G 2E* 

"E 25"*"D 29°,"C 2E*»"*C 28*%»"D 25","E 2E" 

"D 25"9"C 25"9"D 2E"»"B 3Q" 

"G#iS",s"B 29%," 2E*s"F 2E",y"E 2E" 

"D 25"%»"C 25"s"B 25%» "C 29"9"A 2E"%s"C#2E" 

"D 25"»9"E 25"9"F 2E"*s"E 2S5%y"D 25", "C#2E" 

"D 25"2"A 25"2"A ZE"r"A 3Q" 

"C#2S5"7"D 29"%"E 2E*e"D 25"5"C#2S"y"B 2E" 

"C#2S"2"A 25°%2"G 2E"s"G 2Q" 

"F 25"9"A 3S"e"F 25" "D 25"%r"A 25"7"D 25""9"F 25"%9"A 3S 
"E 25"9°A 3S"r"E 25" "C#25"2"A 25"e"CH2S"*"E 25"2"G 2S 
"F 25"2"A 3S"2"F 25" "D 25"2"A 25%» "D 25" "F 25"s"A 3S 
"E 25" "A 3S"*"E 25"r"C#28"9"A 25"»9"C#25"9"E 25"9"G 25 
"F 25% "G 25"9"A ZE"*"A 2E"»"D 25"»"C#2g" 

"D 2E*y"A 2E"s"t 1E."»9"F 25" 

"G 1S"*"A 25"+"B 2E*s"B 25"e"C 25"%."D 2E* 

"D 25"»"E 29"»"F 2E","F 2Q" 

"GEIS"*"A 25° e"B 2E"»"B 25"9"C 25"*"D 2E" 

"D 29" 9"E 29":"F 2E"*"R ZE"y"E 2E" 

"C 3S"9"B 3S"e"A 35"e"G 25"e"FH25"9"E 25"9"N#2S"~,"E 25 
"G 1S"*"B 3S"e"A 3S"e"G 25"y"FH2Z5"y"E 25","*NF2S"y"E 2g 
"A 25"r"C 3S"r"B 3S"v"A 3S"e"G 25"y"F#25"9"E 29%, "De2S 
"G 15""B 3S"*"A 3S"9"G 25", "F295", "E 29%, "NF25"y"E 25 
"C 25" "B 2S"s"C 2E"s"A ZE"y"FEZE" 

"D825 "9"F#25"9"B 2E"»9"G 2E"s"E 1E" 

"A 25"2"G 29"s"FHQE"» "BR 25"9"E 29", "DE2E" 

“E 2E"*"B 2E*,"E 1E"s"E 29","F 2g" 


oe 


PROGRAM NAME: 


00947 
00948 
00949 
00950 
00951 
00952 
00953 
00954 
00955 
00956 
00957 


00958 
00959 
00960 
00941 
00962 
00963 
00964 
00965 
00966 


00967 


00968 
00969 
00770 
09999 


bad 
A hd 


of 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


LATA 
TATA 
IlATA 
LATA 
DATA 
DATA 
LATA 
DATA 
DATA 


IATA 


DATA 
DATA 
DATA 
DATA 


Ord 
of 


H 8 MUSIC #4/MONTEITH = 
"G 2S"s"F 295°%"G 2E"?°A 
*"§ 25"°r"E 2S"%s"F 2ZE* eed 
"F 28"s"E 29°%s"F 2E"s"G 
*F 25°s"D 25*s*E 2Ee*e*C 


"GE2E"»"G 
"FEQE* y "F 


PE 2E*s"F 
"A 25°, "B 
"A 2E°,"E 
"E 15"9*F 
"E iS%s*F 
"C 25","A 
*E 28°%"C 
"Dp 28° "C 
"A 25% °C 
"A SE", "D 
"F#2E", °C 
“= Ze "FP 
"“G#1S"s"A 


? 

’ 
"GEILE" "F#1IS"» "GEIS", "E 

’ 


2E"s "C#2E"s 'G 
2E"y"B 2E"*"F 


28"s"E 28"9"D 


28"s°C 2E° 
2E"9"E 20° 
1S*s"E is*r"E 


1S"s"E 19°%**C 
28°: "FE2E", °D 
25"r"A SE"*"A 
29"s"E 25"9"A 
28" s"E 2E°r*E 
2E"»"C#2E"» 
2E*s"B 2E"s*F 
2o"9"E 25° 9 *D 
25"9"B 25", 


29" "C#25"%"E 


LE", "0 
1S"*"B 
LE" "A 
2E* 

2E" 

25"%%"C 
1E"*"E 
25"9"A 


25"*"E 


25"%"B 
28°9"B 


CONT’D = 


2E" 
25" 
2E" 


25"%7"E 
25","0T 
3E" 


25%, "B 29"r"A 


2E* 


29", "G#1E" 


iS"y»"F 19"%¢"E 


25" "GE1S","E 


25", "G#2E" 


gee"s"E 28" 


25"s°E 1E*+*A 


295", "D#25","E 2E" 


2E" 
2E" 


zeal 


“G#1IS"s"E 


"RK 29"*9"G#iS"s"B 29" "D 25% "ED 


25*,»"D 
an" es 


2H" 


oe 
o 
+? 
oe 
Lad 


25"y"F 25", "G#2S"7"GE25"*"B 
25","A 25"r"C 29"»"B 25"9"A 


Ad 
+? 
o 
2? 
7 
Cid 
oe 


ah 
i 

af 

cf 


oe 
+ 
7 


od 


2S"*s"B 2S"»"A 28" 
1S"»"F#1S","GtiS" 


25°"B 


oe 
2 
oe 
ce 
Ca 


2$"%""T 


aS" 9 *E 
25"» "G#1iS" 


7 


oo 


i8* 


2a 


29" "G#1S" 


25" 


2E" 


ad 


"Tl 


9"A 


+ 


o¢ 


25 


+ 


7 


FROGRAM NAME? H 8 MUSIC # S/MONTEITH 


00010 REM MUSICAL SCORE PREPARATION PROGRAM 

00020 REM THIS FROGRAM CALCULATES FITCH ANDI DURATION 

00030 REM CONSTANTS FOR THE 8080 ASSEMBLY LANGUAGE 

00040 REM ROUTINE "FLAY". 

00050 REM 

00060 REM ROUTINE TO RESTART TRANSLATION AFTER LAST PREVIOUSLY TR 
ANSLATED NOTE 

00070 IF U=0 GOTO 100 

00080 RESTORE ?C=V-13READ KSrK6¢RS=KS/602K46=K46/KS2 IF V=O GOTO 9S 
00090 FOR V=0 TO CiREAD Z1$3NEXT 

00095 C=C+1iGOTO 150 

00100 REM U DEFINES SCORE AREA IN MEMORY ~ USR FUNCTION ADDRESS + 
100 

00110 U=PEEK(17267)+PEEK (17268) k256+100 

OO1LS Q1=(1.024k1076) 72 

00117 Q2=(2,048k10°6)/781/2°3REM USE INSTEAD OF Fi IF REST INSTEAD 
OF NOTE 

00120 KRiB2°(1/12) 

00125 DIM Z$¢5) 

00130 REM TEMPO CONTROL ~~ ENTERED IN FIRST DATA STATEMENT AS 2 V 
ALUES? 


00131 REM 1. NUMBER OF BEATS FER MINUTE 

00132 REM 2+ "T" VALUE OF TYPE OF NOTE WHICH IS 
TO 

00133 REM RECEIVE 1 BEAT (SEE VALUES IN STATE 
MENTS 

00134 REM 4355-500) 

00135 C=0 


00140 READ KSsK62KS=KS/602KR6=KS6/KS 
00150 CNTRL 490 

001460 FOR V=C TO 1000 

00170 READ Zi¢ 

00180 FOR W=1 TO 5 

00190 ZéCWI=MINSCZISsWe dd 

00200 NEXT 

00210 C=1 

00220 N=100 

00230 IF Z2$¢1)="A" THEN N=1:GOTO 320 
00240 IF Z$(1)="B" THEN N=3?GOTO 320 


FROGRAM NAME? H 8 MUSIC 


00250 
00260 
00279 
00280 
00290 
00295 
00300 
00310 
00320 
00330 
00340 
00350 
00340 
00370 
00380 
00390 
00400 
00405 
00410 
00415 
00420 
00425 
00430 
00435 
00440 
00450 
00455 
00440 
00463 
00445 
00467 
00470 
00475 
00480 
00490 
00500 
00510 
00520 
00525 


IF Z$(1)="C" THEN 
IF Z$¢(1)="D" THEN 
IF Z$(1)="E" THEN 
IF Z$¢1)="F"* THEN 
IF Z$¢(1)="G" THEN 
IF Z$(1)="R" THEN 
IF Z#¢1)="X" GOTO 
IF N=100 GOTO 740 
C=2 

M=100 

IF Z#(2)=" " THEN 
IF Z$(2)="#" THEN 
IF Z$(2)="!" THEN 
IF M=100 GOTO 760 
C=3 

F=100 

IF Z#$(3)="L" THEN 
IF Z#(3)="0" THEN 
IF Z$(3)="1" THEN 
IF Z$(3)="2" THEN 
IF Z$(3)="3" THEN 
IF Z$(3)="4" THEN 
IF F=100 GOTO 760 


# S/MONTEITH 


GOTO 320 
GOTO 320 


*GOTO 32 


?GOTO 320 
1 
;GOTO 440 


Slee eo ie Zz 


hs oH oH fi ii i 


Cort Oa DS 


M=N?GOTO 380 
M=N4+1:GOTO 3 
M=N-1iGOTO 3 


F=M3GOTO 435 
F=M+12;GOTO 
F=M4+243GOTO 
P=4+36?G0TO 
P=M+48:G0TO 
P=4+603GOTO 


P=F+OiREM TRANSPOSE BY ADDING 


IF Z#(4)="C" THEN 
IF Z$(4)="S" THEN 
IF Z#$(4)="F" THEN 
IF Z$(4)="B" THEN 
IF Z$¢4)="D" THEN 
IF Z#$(4)="E" THEN 
IF Z$(4)="A" THEN 
IF Z#$(4)="Q" THEN 
IF Z$(4)="H" THEN 
IF Z#(4)="W" THEN 
IF T=100 GOTO 760 


T=32°GOTO S2 


= CONT‘’D > 


0 


80 
80 


435 
435 
435 
435 
435 


SEMITONES INSTEAD OF ZERO 


te) 


T=16:3GOTO S20 
T=142GOTO 520 
T=12:GOTO S20:REM TRIPLET EIGHTHS 


T=10i3GOTO S2 


0) 


T=82GOTO S20 
T=63GOTO S20?REM TRIFLET QUARTERS 


T=43G0TO S20 


=23G0TO S20 
T=1:GOTO S20 


IF Z#(S)="" GOTO 545 


a = 7 


PROGRAM NAME? H 8 MUSIC # S/MONTEITH «= CONT’D > 


00530 IF Z$(S5)="." THEN T=2xT/3iGOTO S45 

00535 IF Z$(5)="3" THEN T=4xT/7 

00540 REM CALCULATE CONSTANTS 

00545 IF N=0 THEN F1=Q2°2K3=0:GOTO S80 

OOSSO FLlRSSKCRIT CP -1)) 

00560 T1=Q1/F1 

00570 K3=(T1-36)/12 

00580 KR4=2kF I KKG6/T 

00581 REM CALCULATE DURATION ADJUSTMENT FOR ROUNDING ERROR IN PIT 


00582 REM CINSIGNIFICANT FOR LOW NOTES» BUT SIGNIFICANT FOR 
00583 REM HIGHER NOTES OF LONGER DURATION, > 

00584 Q3=INT(RS+.5) 

00585 Q4=K4*(K3-Q3)k24/ (Q3K24+72) 

00586 K4=K4+Q4 

00590 REM MAKE DURATION EVEN 

00600 D4=INT(R4+.5) 

00610 REM CALCULATE DURATION 2 BYTES 

00620 DS=INT(04/256) 3REM MOST SIGNIFICANT DIGIT 

00625 06=04-05*k2563REM LEAST SIGNIFICANT DIGIT 

00630 REM CALCULATE PITCH 2 BYTES 

00640 D7=INTCQ3/256) 3REM MOST SIGNIFICANT DIGIT 

00645 08=Q3-07kK2563REM LEAST SIGNIFICANT DIGIT 

00650 REM TRANSFER CONSTANTS TO SCORE AREA 

00660 FOKE UstStUsutl 

00670 FOKE Uslé?Uu=U+t1 

004680 FOKE Urt73U=U+1 

00685 FOKE UrsI8iU=U+1 

00690 FRINT Vt1sSPC(7-LEN(STRS(V41)))% 

00700 NEXT 

00710 FRINT "SCORE EXCEEDS THE 4K MEMORY ALLOCATED, *?U=U-4 
00720 FOKE Ur0 

00725 FOKE Utis0 

00730 FRINT 

00740 FRINT "SCORE COMPILATION COMPLETE! " 

00741 CNTRL 491 

00743 PRINT "CTL KEYS ARE INOPERATIVE DURING PLAYING OF PIECE" 
00745 FRINT "SET SFEAKER SWITCH FOR MUSIC - TYPE SPACE TO PLAY"SF 


00750 B1=USR(O) 


FROGRAM NAME? H 8 MUSIC # S/MONTEITH = CONT‘’D > 


OO751 PRINT tPRINT “RESET SFEAKER SWITCH IF FINISHED, OR TYPE CON 
TINUE TO REPLAY" 

00755 FRINT "MORE NOTES (ADDITIONAL DATA STATEMENTS) MAY BE ADDED 
BEFORE" 

00756 FRINT * TYFING CONTINUE» AND THE TRANSLATING FROCESS WILL 
CONTINUE" 

00757 FRINT " WITH THE NOTE FOLLOWING THE LAST NOTE PREVIOUSLY 
TRANSLATED. * 

00758 STOF 

00759 GOTO 750 

00760 PRINT tPRINT “ERROR IN NOTE #*°9V+41 

00770 FRINT "DATA STRING "$Z1% 

00780 PRINT “CHARACTER #°SC 

00790 FRINT "AFTER CORRECTING THE DATA STATEMENT TYPE CONTINUE," 
sSTOF :GOTO 10 

00899 REM “INVENTION #4 IN TD MINOR" BY J.S. BACH 

00900 TATA 904 
OO901 DATA "0 1S" 
00902 DATA "C#1S" 
00903 DATA "F 1E" 
00904 DATA "G 1E" 

00905 DATA "TD 28" 

00906 DATA "C#25" 

00907 DATA "F 25" 

00908 DATA "B!2S" 

00909 TATA "E 2S" 

00910 DATA "A 28" 

00911 DATA "D 28" 
00912 DATA "G 1Q- 
00913 DATA "C 25" 
00914 DATA "F iQ"ys 

00915 DATA "A 2E"» 

00916 DATA "C 2S"e"BI2S"s"A 25% "G 1S"r"F 1S","E 18" 
OO917 DATA "F 1S"*"G 1S**"G 1E."*"F 15" 

00918 DATA “"F 1E"*"C 2E"*"C 2E" 

’ 

’ 

? 

, 


"E 1S"9"F 1S5"9"G 1S"%"A 25"*"B!I2g* 

"Bl25"9"A 25"*"G 18*+"F 1S"*"E 1S" 

"A 2E*, "DT 2E" 

"C#2E"s"E 2E" 

"E 25"» ’ y "BISS" 

"RI3S"y ’ *"E 25" 

"Tt 25", ’ ¥"A 3S" 

"A 39"9"G 25%¢"F 29*%"E 25"*"D 25" 

"C 25"s y *"G 2g" 
y ’ s°G 25" 
’ + ’ 


'E 2g" "F 2s" 


i a ee ee ee ee ee | 


"D 29%, "E 2$°s"C 26"%9"D 2S**"E 25° 
"BI2Q" 


2" 2C"r"C 20% "D 2C* 
e*B 20" e"C 2C*s*h 20" 
"C 2C"s"D 2C*%s"C 20*s"D 2C* 
e"D 2C"%,r"C 20% "D 2c" 


00919 TATA "C 2c" 
00920 DATA "C 2C" 
00921 DATA "C 2C" 
00922 DATA "C 2C" 


2 oF 


“ Hot U >t G > 


FROGRAM NAME? 


00923 
00924 
00932 
00933 
00934 
00935 
00936 
00937 
00938 
00939 
00940 
00941 
00942 
00943 
00944 
00945 
00946 
00947 
00948 
00949 
00950 
00951 
00952 
00953 
00954 
00955 
00956 
009357 
00958 
00959 
00960 
00961 
00962 
09999 


DATA 
DATA 
DATA 
LATA 
LATA 
TATA 
LATA 
DATA 
DATA 
DATA 
LATA 
DATA 
LATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
LATA 
DATA 
LATA 
LATA 
TATA 
LATA 
LATA 
LATA 
DATA 
DATA 
DATA 
DATA 
DATA 
TiATA 
IATA 


*¢ 
"Cc 
*C 
*C 


"BI28" 


"A 35" 
"Dp 2g" 
"A 2E. 
"DD 1E" 
"BI2s" 
SE 15° 
"A 2E" 
"3 ZE* 
"Bp 25° 
"C#25" 
"F 2E" 
"Dp 2S" 
*Tr 25" 
*D 2s" 
"BI2S* 
"A 25" 
"ft 1H" 
“xs 


20" 
2C"» 
"Bl2S", 
iS"» 
2S" 
iS"» 
25"y5 
2S" 
25"% 
2S" 
1S", 
2S" 
“F#EIS"» 

25"y 
2S"y 
oF 25"¥ 
9 *G#2S"» 
y"EK 2C0"y 


r"A 25", 


» "FELE" 
»"G 1S" 
,"D 2 
9 "F 
r"E 2 
°"E 29", 
9 "BISS"» 
"DD 2E"» 
+ "C#295"» 
"EB 25"% 
"CC 25" 
» "C#1IS"» 
2"D 2F" 


H 8 MUSIC # S/MONTEITH 


*C 
*“C 2 
"A 2 
“E 
"G 
"Tt 
*C 
"Ee 
“Th 


"pn 2S" 
"B 2S" 
"E 25" 
"FE2S"» 
“¢ 2C*, 


2E" 
25", 
25" 
25", 


2S" » 
3S" 
TE* 
2S" 


*G 
"E 


"CH2E."y 


"BI2S"» 
"Dp iS*s 


2"F LA’, 


*BI2S",» 


r"BI2S"y» 


< CONT’D > 


2c" 
2c" 
is* 
25" 
is* 
is* 
25" 
25" 
25" 


2C"» 2C", "hh 
’ 2C","t 
’ 1S"s"E 
"“F#EIS"s"G 19"2"A 
IS*»"E iS"*e«*h 
’ 1S"+'"G 
y 29 "9 "F 
y 2S"9"B 
’ 25"9"A 
e"E iS"s"D 1s* 
"G#1S"s"A 2S" 
"G#1S",»s"F#1S" 
25"s"C 29" 
2S"9"A 29" 


? 
2S"9"E 25" 
’ 


age 


"F#1S" 
"F#1IS", 
"A 25", 
2S"9"B 
25"9"B 
2S", "Tl 
25"%"C 
"E 25"9"A 
"BR 2E",?"A 
*"C 28° 


"Th age "k ag * 
SE. 


2$° 


"BI2S"s"C 


"A 


2S"y% 
25" 


"Ti 
"G 


2s" 
1s" 
"F 2E° 
"G 
"G 


"A 
"F 


3S" 
2S"y» 


"“BISS" 
*E 2S" 


25" 
2S" 


"A 25"y 
"DD 2s" 
"A 25"y 
"E iS"y 
"E 1f"» 


*"C#25" 


"G is" 
"F 1s* 
"Dip" 


2"F is" 
»"G 1s" 


3 - 40 


PROGRAM NAME? H 8 MUSIC # 6/MONTEITH 


00010 
00020 
00030 
00040 
00050 
00060 


REM MUSICAL SCORE FREFARATION FROGRAM 

REM THIS FROGRAM CALCULATES FITCH AND DURATION 

REM CONSTANTS FOR THE 8080 ASSEMBLY LANGUAGE 

REM ROUTINE "FLAY". 

REM 

REM ROUTINE TO RESTART TRANSLATION AFTER LAST PREVIOUSLY TR 


ANSLATED NOTE 


00070 
00080 
000970 
00095 
00100 
100 

00110 
00115 
00117 


IF U=O GOTO 100 

RESTORE {C=V-1{tREALD KS9K6¢KS5=KS/602K6=K46/KS2 IF V=O GOTO 95 
FOR V=0 TO C?READ Z1$3NEXT 

C=C+1iGOTO 150 

REM U DEFINES SCORE AREA IN MEMORY —- USR FUNCTION ADDRESS + 


U=PEEK (17267) +PEEK (17268) k256+100 
Q1=(1.024K10°6)/2 
Q2=(2.048k1076)/781/2tREM USE INSTEAD OF Fi IF REST INSTEAD 


OF NOTE 


00120 
00125 
00130 


ALUES? 


00131 
00132 
TO 

00133 
MENTS 
00134 
00135 
00140 
00150 
00140 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 


K1=27(1/12) 
DIM Z$¢5) 
REM TEMFO CONTROL ~~ ENTERED IN FIRST DATA STATEMENT AS 2 V 


REM 1. NUMBER OF BEATS FER MINUTE 
REM 2, "T* VALUE OF TYFE OF NOTE WHICH IS 


REM RECEIVE 1 BEAT (SEE VALUES IN STATE 


REM 455-500) 
C=0 

REAL KSrK6tKS=K5S/602K6=K6/KS 
CNTRL 4%0 

FOR V=C TO 1000 

READ Z1¢ 

FOR W=1 TO 3 
Z$(W)=MIDGCZ1I$9 Weld 

NEXT 

C=1 

N=100 

IF Z#(1)="A* THEN N=13GOTO 320 
IF Z#(1)="B"* THEN N=3:GOTO 320 


a = 61 


PROGRAM NAME? H 8 MUSIC # 6/MONTEITH «= CONT‘’D > 


00250 IF Z$¢(1)="C" THEN N=4:GOTO 320 
00260 IF Z$(1)="D" THEN N=6:GOTO 320 
00270 IF Z$(1)="E" THEN N=83GOTO 320 
00280 IF Z$(1)="F" THEN N=9:GOTO 320 
00290 IF Z$(1)="G" THEN N=113GOTO 320 
00295 IF Z$(1)="R" THEN N=03GOTO 440 
00300 IF Z$(1)="X" GOTO 720 

00310 IF N#=100 GOTO 7460 

00320 C=2 

00330 M=100 

00340 IF Z$(2)=" " THEN M=N:GOTO 380 
00350 IF Z$(2)="#" THEN M=N+1:GOTO 380 
00360 IF Z#(2)="!" THEN M=N-1:GOTO 380 
00370 IF M=100 GOTO 740 

00380 C=3 

00390 F=100 

00400 IF Z$(3)="L" THEN F=M:GOTO 435 
00405 IF Z$¢(3)="0" THEN P=4t12:GOTO 435 
00410 IF Z2$(3)="1" THEN F=M+24iGOTO 435 
00415 IF Z2$(3)="2" THEN F=M+36iGOTO 435 
00420 IF Z$(3)="3" THEN F=M+48iGOTO 435 
00425 IF Z2$(3)="4" THEN F=M+60:GOTO 435 
00430 IF FP=100 GOTO 760 

00435 P=F+O3REM TRANSFOSE BY ADDING SEMITONES INSTEAD OF ZERO 
00440 C=4 

00450 T=100 

00455 IF Z$(4)="C*" THEN T=32:GOTO S20 
00460 IF 2$(4)="S" THEN T=16:GOTO S20 
00463 IF Z$(4)="F" THEN T=14:GOTO S20 
00465 IF 2$(4)="B" THEN T=12:GOTO S20°3REM TRIPLET EIGHTHS 
00467 IF Z2$(4)="D" THEN T=10?GOTO 520 
00470 IF Z$(4)="E" THEN T=8:GOTO S20 
00475 IF Z2$(4)="A" THEN T=63GOTO S203REM TRIFLET QUARTERS 
00480 IF Z$(4)="Q" THEN T=4:GOTO 520 
00490 IF Z$(4)="H" THEN T=2:GOTO 52 
00500 IF Z$(4)="W" THEN T=1:GOTO 520 
00510 IF T=100 GOTO 760 

00520 C=5 


00525 IF Z$(S)="" GOTO S45 


FROGRAM NAME? H 8 MUSIC # 6/MONTEITH = CONT‘’D > 


IF Z#$(S5)="." THEN T=2xT/3:3GOTO 545 

IF Z#(S5)="3" THEN T=4xT/7 

REM CALCULATE CONSTANTS 

IF N=0 THEN F1i=Q2°3K3=0:3GOTO 580 

F1l=S5K CRI" CP -1)> 

T1=Q1/F 1 

K3=(T1-36)/12 

K4=2XF 1XK6/T 

REM CALCULATE DURATION ADJUSTMENT FOR ROUNDING ERROR IN PIT 


REM (INSIGNIFICANT FOR LOW NOTES» BUT SIGNIFICANT FOR 
REM HIGHER NOTES OF LONGER DURATION. ) 
Q3=INT(K3+.5) 

Q4=K4* (K3-Q3)*K24/ (Q3K24+72) 

K4=K4+Q4 

REM MAKE DURATION EVEN 

D4=INT(K4+. 5) 

REM CALCULATE DURATION 2 BYTES 
DS=INT(04/256) {REM MOST SIGNIFICANT DIGIT 
N6=D4-D5X256tREM LEAST SIGNIFICANT DIGIT 

REM CALCULATE FITCH 2 BYTES 

D7=INT(Q3/256) $REM MOST SIGNIFICANT DIGIT 
08=Q3-D07k2563REM LEAST SIGNIFICANT DIGIT 

REM TRANSFER CONSTANTS TO SCORE AREA 

FOKE Us D5tU=Ut1 

FOKE Urs l6sU=Ut1 

POKE Us D72U=U+t4 

FORE Us D8tU=Ut4 

PRINT V+tisSPC(7-LEN(STRS (VFL) D5 

NEXT 

PRINT "SCORE EXCEEDS THE 4K MEMORY ALLOCATED. *tU=U~4 

FOKE Ur0 . 
FOKE U+120 

PRINT 

FRINT "SCORE COMPILATION COMPLETE!" 

CNTRL 4714 

FRINT "CTL KEYS ARE INOFERATIVE DURING FLAYING OF FIECE* 
PRINT "SET SPEAKER SWITCH FOR MUSIC - TYPE SPACE TO PLAY"?P 


B1=USR(O) 


3 - 63 


FROGRAM NAME? H 8 


00751 FRINT 
TINUE TO REPLAY" 
00755 FRINT 
BEFORE" 
00756 FRINT * 
CONTINUE" 
00757 FRINT " 
TRANSLATED, * 
00758 STOP 
00759 GOTO 750 
00760 PRINT 
00770 PRINT 
00780 FRINT 
00790 FRINT 
3STOF :GOTO 10 
00999 REM 
01000 TATA 30094 
01001 DATA "A!2Q" 
01002 DATA "G 1E" 
01003 DATA "G 1E" 
01004 DATA "C 2E" 
01005 DATA "G 1E" 
01006 DATA "C 2E" 
01007 DATA "G 1E" 
01008 DATA "B!I2E" 
01009 DATA "B!I3Q, 
01010 DATA 
01011 DATA 
01012 DATA 


01013 
01014 
01015 
01016 
01017 
01018 
01019 
01020 


DATA 
LATA 
LATA 
DATA 
DATA 
TATA 
LATA 
LATA 


"G 1E" 
"C 2E" 
"G 1E" 
"RIZE" 
"BI3Q. 


01021 DATA 


SPRINT 


TYPING CONTINUE» 


SPRINT 
"QATA STRING 
"CHARACTER 
"AFTER CORRECTING THE DATA STATEMENT»? 


"THE MINUTE WALTZ" 


"F QE, 
"BI3Q."» 
"F QE", 


"F 2E", 
"BISQ."» 
"E!2E"» 


"F 2B", 


MUSIC # 6/MONTEITH 


"RESET SPEAKER 


ANTI 


"ERROR IN NOTE #* 
"#218 
#°SC 


eV+1 


BY F.« CHOFIN 


"AIOE ® 
"RIDE® 


"CC ZE"s 

x "AIRE" » 

9 "RIZE" » 
1E"y"AIZE",* 

iota 

’ , 

, , 

, , 


"G 1E"» 
"AI2ZE*y 
"AI2ZE"» 
"BIQE" 9 "G 
"AIZE"y 
"BIQE"y 
"AIQE"y 
"C 2E"y» 


"AIRE* 
"RIQE# 
"EEZE" 


“G 26* 
"TIDE" “F 26" 
V"AISE*s"GI2ZE°»*F 2E" 
"EIZE*s*EI2ZC*s"F 20" » 
"AISE*»"GI2ZE"»"F 2E* 
“EI2C*s"F 20"%s*E 25%» *D 


zs" <=-s «= i a = 


"AI2ZE",s"C SE" "BIZE"»s"G IE" 
"BIQE*»s"G LE"»y"AIL2SE"y"C 2E" 
"AIZE*s*C 2E*s*BIZE*s"G LE* 
“tC 2E*s"*BIZE"*s*EZE"s"F 2E* 
y"AISE*s"GI2E"y"F QE" 
"RIZE"s"EIZG*s"*F 20" » 
*“ALSE* s *“GIZE"s"F 2E* 
"F ZE"s"Et2C*s"F 20" 


az‘ —a—6s< J 


"E!2S" 


"GI2B"y"F 2B"»9"E 2E"» 


a ~ 64 


"EI2S",» 


2E"» 


’ 
? 
, 
td 


"El2S"y 


"DP 2E"» 


"F 2E", 


he 


< CONT‘D > 


SWITCH IF FINISHED» 


"Bi2e” 
"AI2E" 
"BIL2E* 
"AIQE" 
"BIZE* 
"AI2E" 
"GI2E" 


“Di -2E" » 


"EPZE*s 


"AIDE" 
"RIDE" 
"AI2E" 
"GI2E* 


"TD 2E"y» 


"AISE"» 


OR TYPE CON 


"E120" 


"F 2E"» 


"E!2Q" 


"EI2ZE"» 


"GI2E* 


"BI2E 


"Ee 


WITH THE NOTE FOLLOWING THE LAST NOTE PREVIOUSLY 


“") 


a 


"MORE NOTES (ADDITIONAL DATA STATEMENTS) MAY BE ADDED 


THE TRANSLATING FROCESS WILL 


TYPE CONTINUE," 


E 


PROGRAM NAME? H 8 MUSIC # 6/MONTEITH < CONT‘’D > 


01022 
01023 
01024 
01025 
01026 
01027 
01028 
01029 
01030 
01031 
01032 
01033 
01034 
01035 
01036 
01037 
01038 
01039 
01040 
01041 
01042 
01043 
01044 
01045 
01046 
01047 
01048 
01049 
01050 
01051 
01052 
01053 
01054 
01055 
01056 
01057 
01058 
01059 
01060 


TATA 
LATA 
ATA 
TATA 
DATA 
LATA 
LATA 
TATA 
DATA 
TATA 
DATA 
DATA 
DATA 
LATA 
LATA 
LATA 
DATA 
DATA 
TATA 
DATA 
LATA 
DATA 
ATA 
DNATA 
DATA 
DATA 
DATA 
DATA 
LATA 
DATA 
LATA 
DATA 
DATA 
DATA 
DATA 
ATA 
DATA 
LATA 
LATA 


SF 2E" 
"AISE" 
"AISE® 
"¢ JE" 


"ELIE" 


"Al 3B" 
"AIZE" 
*E1SE* 


*DIiH" 
a 2R* 
ae 2E" 
"AI3E" 
"AI3E" 
"C 3E° 


"ENIE* 
"F 
"A!3R 


*E 1 3E* 


‘DH1H" 


"A!IQH."» 
"AIQH"» 
"A!IQH"y 


"F 2H" 


"F 2H." 
2H" » 
"E!QH"y 
"C 2E."» 


* F 


»"G!I2E" 
*B!3B* 
"BI3SE* 
"BISE" 


’ 
? 
$ 
’ 
"C 2E"» 
’ 
’ 
’ 


"F ZeE* 
"A!ISE" 
"AISE* 
"AISE" 
"Bize* 
“C i&* 


’ 
’ 
y 
9 
y 
’ 
"RIQE"y 
’ 
F 
’ 
’ 
’ 
’ 


2E* 
PE" 
2E* 
"GIOE* 
"AIQE* 
"Et2E* 


’ 
’ 
’ 
’ 
’ 
’ 
2E"» 
’ 
’ 
’ 
’ 
’ 
’ 
’ 


"F 2E* 
"AISE* 
"AISE" 
"F 2E* 
"GIiE* 
“B!I2E* 
"DIi2eE* 


’ 
’ 
’ 
’ 
y 
’ 
’ 
"F Ze" s 
’ 
’ 
’ 
’ 
’ 
’ 


"BISE" 


"DIZE* 
"EIQE* 
"F 1E* 
"AI2E* 
"EIQE* 


"DIiE* 
"AIOE" 
"GIOR* 
"GIDE", 
"B!ISE" 
"pI SE* 
"DISE" 
"EIDE" 


"F 2B 
"F QE", "BIZE" 
"AIZE* 
"AIZE* 
"AIZE* 
"RIDE® 
"GIiE* 


"AISE" 
"AISE" 
"Cc 36" 
"DI2E* 


Ee 


—z-—“w «<< 


1E* 


"F 2B° 
“"F -2e* 
"“A!ISE" 
"AISE" 
"AISE" 
"RIDE" 
"C 1E* 


’ 
’ 
’ 
’ 
’ 
’ 
’ 
"BIQE"» 
’ 
’ 
’ 
’ 
’ 
y 
’ 


a 
a = 
“iG 
"G 
"GIOFF 
"AILQE" 
"BITE" 


’ 
’ 
’ 
’ 
’ 
’ 
’ 
2E"» 
’ 
§ 
’ 
y 
’ 
’ 
’ 


2E* 
2E* 
2eE* 
oeE* 


"F 
"F 


2E" 
2E" 
"AIZE* 
"AIZE" 
"F 2E" 
"GIIE* 
"BIZE* 


’ 
’ 
’ 
? 
’ 
: 
’ 
"DI2E"» 
y 
’ 
’ 
’ 
’ 
’ 
’ 


"AISE* 
"Glore “BISE* 
"BIS" 
"BISE" “DISE* 
"E!2E* 
"F 1E* 
"AI2E" 
"E 2E* 


, 
’ 
, 
? 
"RIZE", 
"C 2E"r 
"DIWE"y 
"AIZE"y 
’ ee" 
’ 2E* 
, 2E* 
, oye 

? 

, 

’ 


"F 2E* 
"F 2E* 
"AIBZE* 
"AIBE" 
"AIZE* 
"RIZE" 
"GIIE* 


“F 2a" 
"F 26" 
"AISE" 
"AISE" 
*"C 3e* 
"D!I2E" 
"BIE" 


"GI2R" 
"GI2E* 
"B!ISE" 
"RUSE" 
"DISE" 
"EF IOF* 
"C DE" 


"BISE" 


bd 

bd 

¥ 

’ 

y 

y 

y 

3 

’ 

bd 

y 

y 

ts 

bd 
y"GIQE" 
t 

ba 

, 

bd 

td 

, 

ba 

¥ 

bd 

tf 

, “F 3E" 
, "GI2E" 
g "AIQE* 
: "C 1E° 
"E11Q" 

"E 1Q" 

"F 1Q" 


»"B!2Q" 
*C 2Q" 
*D'2Q" 
"EIQE."» 


*Digk« *s "Bi 2E.* 


*"C SE", 


"AISE", 


"C SE"» 


"AISE",s 


"C SE" 


*B!lae* 


"6IZE* 


y"BIZE" 


e*G!I2E* 


* BI SE* 


"G!2E° 


"BISE" 


PROGRAM NAMES H 8 MUSIC # 6/MONTEITH « 


01061 
01062 
01063 
01064 
01065 


01066° 


01067 
01068 
010649 
01070 
01071 
01072 
01073 
01074 
01075 
01076 
01077 
01078 
01079 
01080 
Q* 

01081 
01082 


01083 
01084 


01085 
01086 


01087 
01088 


01089 
01090 
O1091 
01092 
01093 
01094 


LATA 
LATA 
LATA 
IATA 
LATA 
DATA 
LATA 
LATA 
DATA 
TATA 
LATA 
ATA 
LATA 
LATA 
DATA 
LATA 
LATA 
IATA 
DATA 
DATA 


LATA 
DATA 


DATA 
DATA 


LATA 
DATA 


DATA 
TATA 


IIATA 
DATA 
LATA 
TATA 
LATA 
LATA 


"A!2H" 
"A!2H" 
"Al2H" 
"F 2H. 
“Cc Zs" 
"A!'3Q" 
"A 2Q" 
*F 2Q"° 
"A!l2H" 
"A!I3S" 
"A!3S" 
"A!l3S" 
"A!3S" 
"A!l3S" 
"AI3S" 
"A!l3S" 
"Al3S" 
"A!I3S" 
"A!I3S" 
"F 2H. 


ss = 


ss a J ee i i i a ae 


"F 2Q", 
"Al2S"» 


"A!l2S"» 
"A!I2S"» 


"AI2S"» 
"A!l2S"» 


"Al25"y 


"Al2S"» 


iE* 
2&° 
LE * 
2E* 
1E* 
2E* 


7 
? 
, 
, 
y 
’ 


S >< OP FOS TPS WOK APE ROSE ? 
CONT’D > 

"E!1Q" 
"E 1Q" 
"F 1Q" 
"D125", "C 25", "D!2S"y"B 2Q%r"C 20" 
"BI2Q","G 2Q* 
"G!2Q","A!2Q° 
"F 1Q","B!I2Q* 
"ENE." 
"AIQH",s"E 1E." 
"AIQH"s"F 1E." 
"F 2H", "F 2E." 
"F 2H", "BI2E." 
"F 2H"*"C 2E." 
"E120", "D!2Q","C 2E.* 
"E120", "D12Q."y"B!2S" 
"AIQH",y "EINE." 
"AIQH"*"E 1E." 
"AlQH"?"F 1Q° 
P'F OH" s"BI2Q*y"EN2H"s"A 20% "E! 207 "AL2ZA%e"D 2 
"EI2Q" 7 "AIZQ*y"AL2ZS"y "BI2S"s "AlZS"r "BI 2S" 
"BIDS", "Al2S"y "BI 2S" y"Al2S"s "BIS" 2 "Al2S"9 "BI 2S 
"HI2S", "Al2S"y *BI2S" 
"BIQS", "Al2S*y"BI2S"y "Al2S"y "BI2S"s "AlZS"* "BI 2S 
"BI2S", "Al2S"y"BI2S" 
*BI2S", "Al2S*y"BI2S"y"Al2S"y "BIS" y "Al2S"s"BI2S 
"HI2S", "Al2S"y"BI2S" 
"RIZS"y "Al2S*y "BI 2S" y"Al2ZS"s "B25", "Al25"s "BI 2S 
"AIZE"s"C 2E"y"BIZE"r"G LE"? "A!2E" 
"BIZE"s"G 1E"y"A!2ZE"y"C 2E","B!2E" 
"AIZE"s "C 2E"s"BIZE"y"G 1E"y"A!2E* 
"RIZE", "G LE" "AIZE"*"C 2E"?"B!I2E* 
"AIZE",s"C 2E*y"BIZE"s"G 1B"? "A!2E" 
"BIQE"s"G LE*s"AIZE"s"C 2E*%y"B!2E" 

5 - 66 


SHC US G> < & >< O DK F OOK T OOS WOOK A OOK ROX ED 
PROGRAM NAME? H 8 MUSIC # 6/MONTEITH < CONT’D = 


01095 DATA °G 1E“*s"AI2ZE"s*C 2E"s"BIZE*s"G LE"s"A!I2E* 

01096 DATA "BIZE"s"C 2E*s*DI2ZE"»"EIZE"»"F 2E"»"GI2E* 

01097 DATA "BI3Q."r"AIZE"s"GI2ZE"y"F 2E" 

01093 DATA "F 2E*,"E!2ZE*»s"E!2C"s"F 2C*s"E!2S"%s"D 2E"»*E!2Q" 

01099 DATA "BI3Q."*"AISE"s"G 2E"»"F 2E* 

01100 DATA °F 2E*,*E!2C*s"F 2C"s"EI2S%s"D 2E"s"EIZE*»s"F 2E",»"*BI2E 


01101 DATA "G 1E*s"A!I2ZE*%s"C 2E*%s"*BIZE"s"G 1E"s"A!IZE" 

01102 DATA "C 2E"*»"BIZE"s"G 1E*s*AIZE"s"C 2E","BI2E" 

01103 DATA °"G LE" *AIZE*s"C 2E*s"*BIZE*:s"*G 1E"s"A!2E" 

Oit04 DATA *HIZE*2*C 2E"s"DIZE*s"EM2ZE*s"F 2E*y"GI2E* 

01105 DATA "BI3Q."*"AISE"s"G!I2E"»"F 2E" 

OT106 DATA *F 2ZE"*s*EIZE"s "E120" "F 20% "EI 26"»"D 2E"s*E!28" 

01107 DATA "B!I3Q."*s"AISE"s*GI2E"»"F 2E" 

OLZO8 BATA “EIZE*s*F 2E*r*El2C*s *F 20" *EI2S"*s"b ZE*s*EIZE*s"E 2E 


O1109 DATA °F 2B"s*GI2B"s"F 2B":s"E 2E"s"F 2E"+°AISE*»s*G!2E" 
OT120 DATA °F 2E*s"*GI2E"s"F SE*s"E 2E*s"F 2E°s"BISE* 

01111 DATA "A!ISB"y"BISB"»"AISB"s"G 2E"*s*AISE*»"C SE*»s"BIZE" 
01112 DATA "AIZE"s"BISE"s"AISE"'s"G 2E*»s"AISE*,s "DIZE" 

OLI1S DATA “C SE*s"BIGE"s *AISE* e"GIZE*e"F 2E*s"E 1 2E* 

01114 DATA "D!I2ZE"s"C 2E*s"BIZE*»s"AIZE*s"GI1E*s"F 1E" 

O1415 DATA "EVIE*s"DIITE"s*C 1E*s*"EIZE*s"*BIZE*s*A12E* 

01116 DATA "G 1E°%»"A!IZE",»"BIZE*s"C 2E*%s*D!I2E*s"E!2E" 

GLli7 DATA “*F 2B" s"GI2B"s*F 2B" s"E Sb" *F ZE*s "Al SE" + "G6! 2" 
O141¢ DTA “F 2E*s*GIZE"s*F SE"s*E 2E*s"*F 2E7e* 31 SE* 

01119 DATA “AISB*s"BISB"s"AISB's*G 2E"**s"AISE"s"C SE» "BISE" 
01120 DATA “AISE*s"BISE*s "AISE*e"G 2E"»"AISE"y"F SE" 

01121 DATA “E!NSE*s "DISE*s"C SE» “BISE*»s "AIZE*»s "G!I2E" 

O1122 DATA “FF 2E*s*EIZE*s"DIZE"*s*C 2E°s*BI2E*s*AIZE* 

OL1125 BATA “A ZE*s"C 2E*e* Bice es *F 1E*s *GITE*s*C TE* 

01124 DATA "DIIH"y"F 2Q" 

O1125 DATA °F ZE*e*GI2ZR"»"F 2B°s"E 2ZE*s*F 2E°r*A!ISE*s *GI2ZE* 
O1126 DATA °F ZE*s"GIZE*s*F 2E*s"E 2E"s"F 2E*s"B!3E* 
01127 DATA "A!ISB*s*BISB*s"AISB*s"G 2E*°s*AISE",s"C SE",s*B!ISE" 
01128 DATA “AISE*s*BISZE*s*AIZE"*"G 2E"*"AISE*s "D!I3ZE" 

O1129 DATA "C SE*s"BISE*s*AISZE"*s"*GI2E*:"F 2E°s"E!2E° 

01130 DATA "DIZE"s"C 2E"s*BIZE*s"AIZE*s"GI1LE*,y"F 1° 

O27131 DATA “EIMIE*»"DITE*s*C TE" s*EIZE* » "BI2ZE"y*AIZE* 


3 = 6F 


FROGRAM NAME? H 8 MUSIC # 6/MONTEITH «= CONT‘D > 


01132 
01133 
01134 
01135 
01136 
01137 
01138 


01139 
01140 
09999 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 


"G 1E"s"AIZE*,"BIZE"s"C 2E","D!2E"y"E!2E" 
"F 2E","GI2E%y"F 2E","E 2E" 
"AIZB","BIZE"y"AISB"s"G 2E" 
"AISE"y"BIZE*y"AIZE"?"G 2E","AIZE"s"F 4E" 
TEl4D"s*D4D's"C 40", "R140", "Ala", "GI 3D" 


"F 2E","B!3E" 


’ 

"F 2B" s"Gi2Ze*s*F 2B"s"E 2E*s"F 2E*s*AIZE*s 
’ 
, 


"F SD", "E!ISB"s"DISB"»"C SB" y"BISB"»s"A!ISB"» 


"EIZE*s *DI2ZE*s*C 2F*s"*BIi2k*s*Aa 2D" 
"EC 2h*e* Bi Zh? sr" LA*s? Gta" s*C 18" «" Bin 
os 


3 — 68 


"AISE*s"C GE" 


*612e" 


ee i 


"G!I2B","F 2B 


il 


00010 
00020 
00030 
| 00040 
00050 
00040 
00110 
| 00120 
00140 
00150 
00155 
00156 
| 001357 
00158 
| 00159 
™~ 00160 
En 
00161 
00165 
00170 
00175 
00190 
00200 
00210 
] 00220 
00230 
00240 
00250 
00260 
00270 
00290 
00300 
00310 
00320 
00330 
00340 


00350 
00370 


FROGRAM NAME? LABEL PRINTER/REECE 


REM LABEL PRINTER/REECE 

REM SET LEFT AND RIGHT TAB STOPS FOR DUAL LISTS 

LET L=0 

LET R335 

REM FOR SINGLE LIST 

LET S=22 

REM NAME/ADDRESS LABEL PRINTER 

REM CLARENCE REECE ~ FER 1978 HEATH H8 COMPUTER SYSTEM 
REM 1, LOAD LABELS» FRESS 1 OR 2 ON H8 PANEL 

REM 2. 1 FOR SINGLE LABELS» 2 FOR DUAL OR LISTING 

REM 3. CTRL~S TO SUSPEND PRINTy CTRL-Q TO RESUME 

REM FOR ADJUSTING LABELS/FORMS. 

REM 

REM LABELS ARE IN 3 LINES AS DATA STATEMENTS: 

REM “DATA "LINE i"y"LINE 2"y"LINE 3° 

REM IF SLASH (/) IS FIRST CHARACTER OF LINE 1» IT IS REPLAC 


REM WITH “MR & MRS ’ THIS CONSERVES SPACE 
PRINT $FPRINT tPRINT {PRINT ¢PRINT 

LET F=FAD(O) ¢REM WAIT FOR KEYPAD ENTRY 1 OR 2 
IF Feed. AND Fe>2 THEN GOTO 170 

DIM A$(3r2) 


FOR J#1 TO 2 REM READ 2 LABELS 

FOR I=1 TO 3 SREM 3 LINES .PER 

REAL A(T» J) 

NEXT I 

NEXT J 

IF Até(iel) <> "EOF" THEN GOTO 290 

PRINT SPRINT ¢PRINT ¢ PRINT 

STOF {REM END OF FILE 

FOR J=1 TO 2 $REM CHK FOR SPECIAL FLAGS/CONDITIONS 


IF LEFT#(A$(19J) 21) <> "/" THEN GOTO 320 {REM / = MR&MRS 
LET A$(1sJ) = "MR & MRS "+RIGHTS$(AS(19J) sLENCAS$(19J))~1) 
REM USE CONES FOR LOCAL TOWNS TO SAVE SFACE 

IF A$(3y9J)="C" THEN LET A$(3*J)="CARROLLTON? TEXAS 75006" 
IF A$(3yJ)="F" THEN LET A$(3»J)="FARMERS BRANCHy TEXAS 73 


NEXT J 
IF F=1 THEN GOTO 500 {REM SINGLE LABELS 


a= oF 


PROGRAM NAME? LABEL PRINTER/REECE « CONT‘D > 


00380 FOR I=1 TO 3 

00390 PRINT TAB(C4) $A$(T91)5TAB(C40) FAS(T 2) 

00410 NEXT I 

00415 PRINT 

00430 IF A$(1s2) <> "EOF" THEN GOTO 200 

00440 GOTO 260 *REM END OF FILE ON SECOND LABEL 
00500 FOR J=1 TO 2 

00520 FOR I=1 TO 3 

00530 FRINT TAB(S) sASCT 9 J) 

00540 NEXT I 

003550 FRINT 

00560 NEXT J 

00570 GOTO 430 {REM GO CHK FOR EOF 

00580 REM OOOO OOOO OOOO OOOO OOK KOK 
*OKK 

10000 REM OOOO NAME ADDRESS FILE 2OOOOOOOOOOOOOOKOKKxK 
x 

10005 TATA "ORO OO OK OKO " 

10010 TATA “OOOO MEMBERS—1 OOOO " 

10075 TATA "ORROQIOROO OOOO OOOO OOK OK " 

10020 TATA “URI IORKIOKK 

10025 DATA “OOOO MEMBERS OOOOOOOOKxKx " 

1.0030 TATA "ORO OOOOOOOO OOOO OOOO OK OK IOKK " 

10035 TATA "OROOOOOOOOOO OOOO Ox " 

10040 TATA "OOOOOHOKK MEMBERS=—1 OOOOKKKKKKx" 

10045 TATA "OOOO OOOO OOOO OOOO OK OK " 

1O0S0 TATA "ORO OOOO OOOO OOK IORK 

10055 TATA "OOOOOOOOK MEMBERS—1 2OOOOKKKKKKK" 

10060 TATA “OOOO OOOO OOOO OOK 

10065 DATA "MARY ADAMS"*"1017 OSCEOLA", "C" 

10070 DATA "/WILLIE ATKINS "»"S401 FRINCE"» "LAKE DALLAS» TEXAS 7 
w06S" 

10075 DATA "ANNA RELLE ANDERSON"»s"1931 JOSEY #G","C* 
10080 DATA "TERI ANDERSON"»"1811 PLEASANT RUN", "C" 
10085 DATA "BONNIE ARMSTRONG": "1120 FARK AVE #€209"»"C" 
10090 DATA "/BILL ARROWWOOD"s "2105 REAGAN BLVE", "Cc" 
10095 DATA "INEZ BAKER"s"1729 COX #112"9"C" 

10094 DATA "JEANETTE BARNETT" » "8625 WOLFWOOD" 

10097 DATA "DALLAS» TEXAS 7a217" 

10100 DATA "/MIKE BAILEY"»"1607 RANDOM", "C" 

10999 DATA "EOF "»"EOF"»s"EOF"»"EOF"»"EOF"» "EOF" 


2 * 70 


FROGRAM NAME? LISTINGS/AMOROSO 


00001 REM LISTINGS DEC AND OCT/AMOROSO 

000035 CNTRL 4%0 

00006 G=1 

00010 FOR R=1TO 10 

00020 FRINT 

| 00030 NEXT R 

00040 PRINT "LISTING PROGRAM IN DECIMAL OR OCTAL" 

| 00050 FOR R=1TO S 

00060 FRINT 

00070 NEXT R 

00080 PRINT "THIS FROGRAM WILL GIVE YOU ANY MEMORY LOCATION(S)" 
00090 PRINT "WANTED IN EITHER DECIMAL OR OCTAL. " 

00100 INFUT "IN DECIMAL», TYPE THE LOW ORDER MEMORY LOCATION "5B 
00110 IF B<OOR B>46S536GOTO 130 

| 00120 INFUT "TYFE THE HIGH ORDER MEMORY LOCATION "sEiGOTO 140 

| 00130 FRINT "LOW ORDER # NOT WITHIN RANGE OF MEMORY? TRY AGAIN'?G 
OTO 100 

00140 IF E>=OAND Exé655346GOTO 160 

00150 PRINT "HIGH ORDER # NOT WITHIN RANGE OF MEMORY» TRY AGAIN": 
GOTO 120 

00160 IF BE GOTO 180 

00170 PRINT "LOW # CAN NOT BE GREATER THEN HIGH #» TRY AGAIN" ?GOT 
0 100 

00180 LINE INFUT "DECIMAL OR OCTAL» PICK ONE "“s#A% 

00181 LINE INFUT "TITLE OF THIS LISTING, IF ANY "#Bt 

00190 IF At="OCTAL "GOTO 490 

00200 IF A$="DECIMAL"GOTO 290 

00210 PRINT "YOU BLEW IT» TRY AGAIN":GOTO 180 

00290 FOR R=1TO 10 

00291 FRINT 

00292 NEXT R 

00293 PRINT Bt 

00294 FOR R=1TO S 

00295 FRINT 

00296 NEXT R 

00297 CNTRL 3r11 

00300 PRINT "MEMORY"» "DATA" » "MEMORY" » "DATA" » "MEMORY" » "DATA* 

00305 FRINT "LOCATION's" IN"»"LOCATION*s" IN“»"*LOCATION"»®* IN" 
00306 PRINT "IN DECIMAL“»"DECIMAL*»"IN DECIMAL" » "DECIMAL"»"IN DEC 
IMAL" » "DECIMAL" 


wo = EAL 


FROGRAM NAME? LISTINGS/AMOROSO 


00310 
00320 
00330 


FOR I=8 TO E 

FRINT IvPEEKCI) » 

C=C+1isIF Cx>3G0TO 350 

C=0 

FRINT 

D=0+131IF 024 GOTO 350 

G=G6+130=90 

FRINT "MEMORY" s "DATA" » "MEMORY" » "DATA" »s "MEMORY "» "DATA 


PRINT 

FRINT 

NEXT I 

FOR R=1TO 10 

FRINT 

NEXT R 

GOTO 1990 

FOR R=1TO 10 

PRINT 

NEXT R 

FRINT BS 

FOR R=1T0O 3S 

PRINT 

NEXT R 

CNTRL 395 

FRINT "MEMORY" sys "DATA"s»s"MEMORY "+s "DATA" 
FRINT "LOCATION"' ss" IN"“vey"LOCATION" ++%" IN" 
PRINT "IN OCTAL"s+s"OCTAL"»*"IN OCTAL"++»"OCTAL" 
FOR I=B TO E 

GOSUB 650 

PRINT 01502¢03904¢05%06207508709% % 

REM COUNTS FOR 1 OR 2 TIMES THUR 

C=C+1 

IF C=1GOTO 590 

FRINT :C=0 

D=0+1 IF D<48GOToO 399 

G=G6+1°0=0 


2 PRINT "MEMORY" »s>9"DATA"»s*"MEMORY“+r* "LATA FAGE"G 


FRINT 
FRINT 


FAGE 


FROGRAM NAME? LISTINGS/AMOROSO < CONT‘’D = 


00599 
004600 
00619 
00620 
00630 
00650 


NEXT I 

FOR R=1TO 10 

PRINT 

NEXT R 

GOTO 1990 

REM L WILL = MEMORY LOCATION IN OCTAL AND IS FOUND BY THIS 


ROUTINE 


00655 
00660 
00661 
00662 
00680 
TAL 

00700 
00710 
00720 
00730 
00751 
0075S 
007460 
00765 
00770 
00775 
00780 
00785 
00790 
007935 
00800 
00805 
O0810 
OO81S 
00820 
00825 
00830 
00835 
00840 
00845 
00850 
00855 


T=I 

GOSUB 751 

O1=H1I+H2 ?02=H3+H4+HS i O3=H6tH7+H8 
04=*L14hL2205=L3+L4+L52306=Lé6tl7+L38 

REM WE NOW FIND THE VALUE OF PEEK DATA AND CONVERT IT TO OC 


T=FEEK (1) 

GOSUER 830 
O7=LAIth2{O08=L3+L44+L 51 O9=L6+tL7+L8 
RETURN 

IF T<32768THEN H1=O%IF T<32768GOTO 740 
Hi=2tT=T-32768 

IF T<16384THEN H2=OtIF T<16384GO0TO 770 
H2=1!T=T-16384 

IF T<8192THEN H3=O%IF T<8192GOTO 780 
H3=43T=T-8192 

IF TS4096THEN H4=OfIF T<4096GO0TO 790 
H4=2tT=T-4096 

IF T<2048THEN H5S=O2IF T<2048G0TO 800 
H5=1¢T=T-2048 

IF T1O24THEN H6=O%IF T<1024GOTO 810 
H6=4¢T=T-1024 

IF Té512THEN H7=03IF T<512GOTO 820 
H7=2¢T=T-S12 

IF Te256THEN H8=O3IF T<256GOTO 830 
H9=12T=T-256 

IF T<i28THEN Li=O%IF T<i28GOTO 840 
Li=2tT=T-128 

IF Te64THEN L2=OtIF T<64GOTO 850 
L2=1!T=T-64 

IF TE32THEN L3=OtIF T<32GOTO 860 
L3=4tT=T-32 


as ~ 7S 


FROGRAM NAME? LISTINGS/AMOROSO < CONT‘’D > 


00860 IF T216THEN L4=O3 IF T<146GOTO 870 


> 


00865 
00870 
00875 
00880 
00885 
00890 
00895 
00900 
00905 
00910 
00915 
00920 
00922 
01990 
0199S 
02000 


* 
oe 


Sd 


L4=23T=T-16 

IF T8THEN LS=O21F T<8GOTO 880 
LS=13T=T-8 

IF T<4THEN L6=O7 IF T<4GOTO 890 
Lé=43T=T-4 

IF Te2THEN L7=O731IF T<2GOTO 900 
L7#23T#T-2 

IF T=1 THEN L8=O3IF T<1GOTO 910 
L8=13T=T-1 

IF T#>O0GOTO 920 

RETURN 


PRINT "ERROR IN OCTAL COMPUTATION T=*"T 


STOF 

CNTRL 471 
CNTRL 3914 
ENIt 


ad 
. od 
oe 
7? 
7 
of 
oo 
7 
7 
7 
7 
7 
7 
7 
oo 


5 - 74 


+ 


7 


oo 


oo 


Sad 


of 


ad 


of 


oo 


Sd 


oe 


os 


Sd 


oe 


7 


PROGRAM NAME? HEADLINER/NIAMO 


00001 
00010 
00020 
00022 
00024 
NG AT" 
00025 
7." 

00026 
HABET * 
00027 
00028 
00030 
00100 
00190 
00200 
00205 
00210 
NYT * 

00220 
00225 
00230 
00240 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00260 
00270 
00271 
00272 
00273 
00274 
00280 
00281 


REM HEADLINER/NAIMO 

PRINT * THIS FROGRAM WILL PRINT A NICE HEADLINE" 
PRINT * WITH JUST ABOUT ANY MESSAGE YOU WANT!" 
PRINT 


PRINT "YOU MUST INSERT YOUR MESSAGE USING ASCII CODE STARTI 
FRINT "LINE 981 THROUGH 989. THE LAST DATA ITEM MUST BE 999 
PRINT "THE FROGRAM IS CURRENTLY SET TO FRINT THE ENTIRE ALP 


FRINT “ALONG WITH NUMBERS, SPACES & FERIONS." 

PRINT 

FRINT 

DIM Y$C(100) 

DIM G$(100) sH#(100) »B$( 100) »G( 100) AC 200) 
L=4iR=3iS=O07A=RK2C=A 

PRINT 

FRINT "HOW FAR» IN INCHES FROM THE LEFT HAND SIDE f0 YOU WA 


INFUT "TO PLACE THE LETTERS -? "#S3S=12x5 

PRINT 

FRINT "PRESS ‘RETURN’ KEY WHEN FAPER IS READY ~~" 
LINE INFUT + B¢ 

FOR X=9 TO 1 STEP ~1 

IT=LEN(BS$) 

FOR J=1 TO I 

A(O)=I 

N$=MIDG CBS Jy 1) 

ACJ) =VAL CNS) 

NEXT J 

FOR Y=1 TO &2ACXK6-64+Y)=ACY) SNEXT YINEXT X 

FOR X=1 TO 6tREAD H$(X)iNEXT XtH$=H$(L){GOSUR 940 
GOSUB 4000 

G(O.=L3IFOR X=1 TO 62G(X)=AC(F) NEXT X 

FOR J=1 TO X 

T=G6(J) 

Y$(J)=STRS$( I) IG$=Y$(J-L)+Y$CI) SNEXT J 

FOR X=1 TO 63G(0)=X 

FOR J=1 TO Zi1=G¢( Jt Y$¢(J)=STRSC(T) 


3 = Zo 


PROGRAM NAME: 


00282 
00283 
00284 
00290 
00295 
00300 
00301 
00302 
00303 
00305 
00306 
00310 
00311 
00320 


00330 
00331 
00340 
00345 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00S10 
00520 
003530 
00540 


GS$=V¥$CIJ-LI+V$ CU) 
NEXT J 
NEXT X 


HEADLINER/NIAMO = CONT’I > 


FOR X=1 TO A/2:F RINT ?NEXT X 
G$=CHRS$ CACF) FCHRE (ACF) )4CHRE (ACF) OFCHRECACF) ) 
IF ACF)=446 THEN 
IF ACF)=36 THEN 
IF ACF)=32 THEN 
IF ACF)248 THEN 
IF ACFO257 THEN 
ON ACF )~-47 GOTO 
IF ACF)<65 THEN 
IF ACF)>79 THEN 
ON ACF)-64 GOTO 
9470 ¥ 48094909500 


IF A>90 THEN 270 


345 
990 
630 
270 
310 


500 9 44076209625 7635955096157605 25952585 


270 
330 


35023607370» 38073902 40024102 430% 44074507440 


ON ACF)-79 GOTO 5109520%540255025609570 95809590 260076109620 
GOTO 270 
FOR X=1 TO A3PRINT TAB(S)sG$iNEXT XiGOTO 270 


GOSUE 
GOSUEB 
GOSUB 
GOSUE 
GOSURB 
GOSURB 
GOSUEB 


GOSUB 
GOSUE 
GOSUR 
GOSURB 
GOSUE 
GOSUE 
GOSUB 
GOSUE 
GOSUEB 
GOSUB 


640: GOSUB 
640;GOSURE 
640;GOSUB 
640; GOSUB 
640; GOSURB 
640; G0SUB 


690;3;GOSUB 640:GOTO 


270 


650 :A=CK.SiGOSUB 640%A=C?IGOTO 270 


700;GOSUB 700:GOTO 


270 


7OOSA=CK-SIGOSUB 6407A=CiGOTO 270 


650;GOSUBR 650:GOTO 
690;GOSUR 690:GOTO 


270 


270 


6403A=CK.75°GOSUB 7003 A=CX.25:GOSUB 650:A=CiGOSUR 760 
A=CX.25;GOSUB 7102A=CiGOSUBR 270 


640;GOSUB 


7103GOSUB 640:GOTO 


640:GOTO 270 


750 3GOSUE 
640;GOSUEB 
6403 GOSUB 
640:3GOSUR 
6403 GOSUB 
640;3GOSUR 
6403 G0SUB 


7403;GOSUER 640:G0TO 
860:GOTO 270 
740;GOSUB 7403G0TO 


270 


270 


270 


8903;GOSUB 880:GOSUB 640:GOTO 270 


B890:GOSUR 640:GOTO 
7003GOSUB 640;3GOTO 
690;GOSUB 790;GOTO 


270 
270 
270 


6402 A=CK.753GOSUB 7O0tA=.25KCiGOSUB 650tA=3640 
A=CX.25:3GOSUB 710%A=CiGOTO 270 
GOSUB 6403 ;GOSUB 690?3A=CxX.S:GOSUB 640:A=CiGOTO 270 


ao Fe 


FROGRAM NAME? 


00550 GOSUE 
005460 GOSUB 
00570 GOSUE 
00380 GOSUB 
00585 GOSUB 
00590 GOSUB 
00595 GOSUB 
00600 GOSUB 
00605 GOSUB 
00610 GOSUR 
00615 GOSUB 
00620 GOSUB 
00625 GOSUB 
00630 GOSUB 
00635 GOSUB 


770: GOSUB 
780 3GOSUB 
640; GOSUB 
890? GOSUB 
7903 GOSUE 
640; GOSUEB 
640: GOSUB 


HEADL INER/NIAMO 


650:GOSUB 
640; GOSUB 
740: GOSUB 


“= CONT‘D > 


7603G0TO 
780:GOTO 
640:3GO0TO 


880:GOTO 270 


6903 GOSUB 
880} GOSUB 
6503GOSUB 


9O00iGOTO 270 


780; GOSUE 
970; GOSUEB 
6403GOSUB 


7803 GOSUE 
800; GOSUB 
650;3GO0SUB 


920:GOTO 270 


7OOtGOSUB 4650%A=CxX.S$GOSUB 640%A=CiGOTO 270 


940:3GOTO 270 
79O0;GOSUB 7103GOSUB 640:GOTO 270 


640:3G0TO 


890:GOSUB 640:GOTO 270 


640:3G0TO 


640:G0TO 
960:GOTO 
760:GOTO 


270 
270 
270 


270 
270 
270 


270 
270 


sfoR be 


00640 FOR Y=1 TO AtPRINT TAB(S)#?FOR X=1 TO LOSFPRINT G$s NEXT XiPF 


RINT 
00641 


sNEXT Ys 


RETURN 


00650 IF Axil THEN 660 


00651 
006460 
00670 


RN 


GOTO 670 


A=1 


FOR X=1 TO ASPRINT 
T X$RETURN 
00680 FRINT TAB(CS)¢ 

00690 FOR X=1 TO A?FRINT 


00700 FOR X=1 TO ASPRINT 
T X$RETURN 


00710 IF A<1 THEN 
00711 GOTO 730 
00720 A=1 

00730 FOR X=1 TO 
00740 FOR X=1 TO 
00750 FOR X=1 TO 
00760 FOR Y=1 TO 
T Y?RETURN 

00770 FOR X=1 TO 
T X?RETURN 

00780 FOR X=1i TO 


720 


AS PRINT 
ASFRINT 
AS PRINT 
AS PRINT 


At PRINT 


ASPRINT 


TAB(S) §6$5G$FHSFHEFGSIGSFHS FHSS GS$IGSENEX 


TABRC4XL4S) $G$ FGS$FHS$FHSFGS$IGSENEXT XPRETU 


TAB(S) $G$5G$s IF RINT TABC8KL+S) §G6$9G%¢NEX 


TABC4XL4+S5) #G$9GS2NEXT X? RETURN 

TABR(S) $G$sG¢iNEXT XS RETURN 

TAB(S) ¢G$3G$sGhsGSiNEXT XSRETURN 

TAR(S) §G$5G$5GS$3GS$3GS$SGS$ HHS FHSFGSIGSENEX 
TABR(S) $G$ 5G$ FHS FHSS OS5GS$FGEFGS FSGS FCS INEX 


TAB(BXL+S) #G$F3GS2INEXT XS RETURN 


2 = ee 


SH >< Ue Ge < § Ff OK F SCT FW SK A OK RR OME Oo 
oS 
FROGRAM NAME? HEADLINER/NIAMO = CONT‘D > 
00790 FOR X=1 TO AtPRINT TABC4XKL4S) §G$5GS9GS$9G$SGSHGSINEXT XSRETU 
RN 
00800 FOR X=1 TO AtFRINT TABCS) §G$sG$sGSsG$sG$sGS3NEXT X: RETURN 
00810 FOR X=1 TO C/23PRINT TAB(S) FOR Y=1 TO 23FOR Z=1 TO (SkL)- 
X 
OO811 FRINT G$C1)53NEXT Z 
00820 IF X>3 THEN 950 
00821 V=X 
00830 FRINT H$(2kV) 5 3NEXT Y3PRINT ¢NEXT X$RETURN 
00832 FOR X=1 TO C/23FRINT TABCS)$H$(X)53FOR Y=1 TO 1LOXL-(2xxX) 
00841 FRINT G$¢1)s¢NEXT Yi PRINT 
00850 NEXT X33 RETURN 
00860 GOSUB 870 
00861 FRINT TAB(S) 5" KRRKRKKRRRRRKRKRK: RRKKKRRRRREK * 
00862 FRINT TARCS) 5° KRRRKKKRKRRRK KKRRKKRKRRRREKK * 
00863 FRINT TABCS)#" KKKKKRKRKRKRKRK KKKKKRRRRRKK * 
00864 FRINT TABCS)5" KRRRKRRKRKRKKR KKRKKKRKRKRRRKK *° eS 
00865 FRINT TAB(S)#" KKKKKKRKRKKKK KKKRKKKRKRREEK * 
00866 FRINT TAR(CS) ¢ *KRKKKKKKKKKK KKRRKRKRRRERKEK * 
00867 FRINT TABCS) § "KKRKKKKKKKKK KKRKRKRRKRRERKK * 
00869 RETURN 
00870 REM 
00871 FRINT TAB(S)$" KKKK KKKK* 
00872 PRINT TAB(S) 3" KKKKK KRKKKK* 
00873 FRINT TAB(S)3" KKKKKK KRKKKKK* 
00874 FRINT TAB(S) 5" KKKKKKKK KRRRKRKRKK * 
00875 RETURN 
00880 FOR X=0 TO 4th STEP 6XL/C3PRINT TABCX+S) sG¢$sG$sG$sGSiNEXT X 
sRETURN 
003890 FOR X=6xl. TO 0 STEF ~6XL/CIFPRINT TARCX+S) §6%56% 56% 96% 3 NEXT 
Xs RETURN 
00900 FRINT TABCS) §"XXXXXXXXXXXX XXXXXXXXXXXX" 
OO901 FRINT TABCS)#" XXXXXXXXXXXX XXXXXXXXXXXX" 
00902 FRINT TAR(S)3*" XXXXXXXXXXXX XXXXXXXXXXXX" 
00903 FRINT TARB(CS)¢" XXXXXXXXXXXX XXXXXXXXXXXX " 
00904 FRINT TABC(S) 3" XXXXXXXXXXXX XXXXXXXXXXXX" 
00905 FRINT TAB(S)#" XXXXXXXXXXXX XXXXXXXXXXXX*" 
00906 PRINT TAB(S)3" XXXXXXXXXXXXXXXXXXXXXXXX" 
00907 FRINT TAB(S)9#" XXXXXXXXXXXXXXXXXXXXXXXX" 
wo 


78 


ah 


<H>< USO G> <€ SF PKC OSS F OK TOK WOK A OK R OSE > 


PROGRAM NAME! HEADLINER/NIAMO <= CONT‘D > 


00908 PRINT TAB(S)s" XXXXXXXXXXXXXXXXXXXXXXXX" 

00909 PRINT TAB(S)s" XXXXXXXXXXXXXXXXXXXXXXXX" 

00910 PRINT TAB(S)#" XXXXXXXXXXXX  XXXXXXXXXXXX" 

00911 FRINT TAB(S)5" XXXXXXXXXXXX XXXXXXXXXXXX" 

00912 PRINT TABCS) 3s" XXXXXXXXXXXX XXXXXXXXXXXX" 
00913 PRINT TAB(S)#"* XXXXXXXXXXXX XXXXXXXXXXXX" 
00914 PRINT TAB(S)#" XXXXXXXXXXXX XXXXXXXXXXXX" 
00915 PRINT TAB(S) § "XXXXXXXXXXXX XXXXXXXXXXXX* 


00916 RETURN 

00920 FOR X=0 TO 7XL STEP ¢€7KL)/(CX3) ¢PRINT TAB(S) +G$3G6%% TABCXtS) 
9G$9GHIGHs 

00930 PRINT TAB(SKL4+S) #G$¢GS$2NEXT X*RETURN 

00940 FOR X=1 TO AX3{FRINT {NEXT X$RETURN 

00950 FOR W=1 TO X-33PRINT “ "#3 2NEXT WiV¥=3:3GOTO 830 

00960 FOR X=4xL TO 7*kL STEP Lx4/C3FPRINT TAB(X+S) #G$5GSIGSINEXT X? 
RETURN 

00970 FOR X=7*L TO 4kL STEP ~4xL/CiPRINT TAB(X+S) §G$3GS3GS2NEXT X 
s;RETURN 

00980 TATA * "9" "9" Rigi "y® "yy" "os 

00981 DATA 46948949 250051 529559549 Se T6957 9 32965966767 268 96? 
00982 DATA POvr71 9729739749 759769779 789799802 B1 9 B22 B37 B4 x B57 BG 
00983 DATA 877881892902 9999 

00990 FOR X=1 TO CxX3tFPRINT ¢NEXT X 

01000 END 

04000 REM XXKKKKKKKK 

04001 REM THIS STARTS THE BANNER INFO SUB 

04002 REM *XXKKKKKKK 

04005 IF ACF)>0 THEN 4040 

04010 READ H$(X) 

04020 IF H$(X)="" THEN 4040 

04030 NEXT H#¢(X) 

04040 REM KXKKKKKKKK 

04050 REM THIS ASSIGNS MAX. # OF LETTERS THAT CAN BE FRINTED 
04060 REM *XXKKKKKXKX 

04070 FOR F=1 TO 25 

04072 REM KKXKKKKXKKK 

04074 REM ACF) = CHARACTER IN ACSII NOTATION (I-E+» A=65»B=4646%C 
=O7 eee) 

04076 REM KXKKKKKKKX 

04080 READ ACF) 

04090 IF ACF)=9999 THEN 990 

04100 RETURN 


5 ~- oF 


PROGRAM NAME? MAILING LIST/MILLER 


00001 REM CHANGE LINE 294 TO YOUR PRINTER FORT NUMBER ! 
00002 REM MAILING LIST/MILLER 

00004 REM XX MAILING LIST xx 

00005 REM ROBERT MILLER 

00006 REM 3428 CANTERBURY 

00007 REM KALAMAZOO» MI. 49007 

00010 FRINT “WHICH LIST DO YOU WANT ?"* 

00020 FRINT * = MAILING LABELS" 

00030 FRINT * ALPHABETIZED CALLS & NAMES" 

00040 PRINT * MASTER LIST» AS ENTERED" 

00050 FRINT * SEARCH DATA FOR CALL OR NAME" 

00060 INFUT M 

00070 ON M GOTO 100%200%300%400 

00090 IF Me>10R 20R 30R 4THEN 10 

00100 DIM F2%(3) rL2$(3)»S2$(3)»C2$(3)2REM * MAILING LABELS ARE 10 
O SERIES LINES 


&Whe 
i wo Hof 


00105 FOR IT=1TO 3 hal 
00110 READ CigsF Soleo Sho ZePs 
OOL11S IF Ci¢s="END"THEN 155 
00120 F2$(1)=F$iL2$(1)=L$iS2$(1)=S$iGOSUR 2000 
00125 IF M=3THEN 365$REM M USED TO RE-DIRECT SUBROUTINE RETURN 
00127 C2$(I)=Ct 
00130 NEXT I 
00132 FORT= 4 
00135 PRINT F2%(1)5" "$126(1)3 TABC27) $F 29(2)3" "§L28(2)5TABCSS) $F 
2bCBIF" "FL BHC3) 
00140 PRINT $24$(1)3TAB( 27) §S2$(2) 5 TABCSS) $926(3) 
00145 PRINT C2$(1)¢TAB(27) §C2$(2)$ TABC SS) $C28(3) 
00150 FRINT tFPRINT tPRINT GOTO 105 
0015S FRINT SPRINT tP RINT {PAUSE (300) ¢FORT= ~250 
00160 ENT 
00200 DIM A$(200)2REM ALPHABETIZED CALLS & NAMES ARE 200 SERIES L 
INES 
00201 REM THE A$(200) DIMENSION SHOULD RE SELECTED TO RE SLIGHTLY 
LARGER 
00202 REM THAN THE TOTAL NUMBER OF LINES PLANNED FOR THE DATA LIS 
Te 
00203 N=-1 
00205 READ R1ssR2¢eR3$eR4$eReRSS{REM LINES 205 ~ 215 COUNT NUMBER 
OF DATA LINES 
wW 


9 - 80 


FROGRAM NAME? MAILING LIST/MILLER 


00210 N=N+1iIREM DATA LINE COUNT IS REQUIRED BY ALPHAA STORT ROUT 
INE 

00215 IF R3$<>" “THEN 205 

00220 RESTORE 

00222 PRINT "COMPUTING LIST OF "#N# "DATA LINES WILL TAKE AF PROX. "¢ 
(N°2)/4403 "MINUTES." 

00223 FRINT "YOU WILL BE NOTIFIED WHEN COMPUTATIONS ARE COMPLETE 
TO ALLOW YOU" 

00224 PRINT "TO TURN FRINTER ON FOR LISTING." 

00225 FOR I=1TO N 

00230 REAL CiteF Syl $rStxZePs 

00235 AS(T)=C1ISt" “+FS+" "+L$ 

00240 NEXT I 

00245 FOR I=1TO N 

00250 FOR J=1TO N-I 

00255 AS=AS (I) 

00260 BR=A$(JI+t1) 

00265 IF A$<BSTHEN 280 

00270 A$(J)=BS 

00275 AS(Jt1)=AE 

00280 NEXT J 

00285 NEXT I 

00287 FOR X3=1TO 1OtPRINT CHR$(7)% ? PAUSE (80)2NEXT X3 

00289 PRINT "PRESS THE ‘RETURN’ KEY AFTER TURNING ON PRINTER.“ 
00290 LINE INFUT "READY TO PRINT LIST. "#Z$3REM Z# IS A ‘DUMMY’ VA 
RIABLE TO 

00292 REM HALT PROGRAM UNTIL FRINTER CAN BE TURNED ON. RESTART FR 
OGRAM WITH 

00293 REM ‘’RETURN’ KEY 

00294 FORT= 4 

00295 FOR T=1TO (Nt1)72 

00296 PRINT AS( LI) $TAB(30) FASC IFC (Nt1)/2)) REM PRINTS TWO COLUMNS 
00297 NEXT I 

00298 PRINT {PRINT tPF RINT N#"NAMES ON LIST"? FORT= “250 

00299 END 

00300 LINE INPUT "FRESS “RETURN’ KEY WHEN PRINTER IS READY "#Z9$3F 
ORT= 4 

00320 PRINT ?PRINT 

00340 FRINT TAR(C2)} "NAME "$TAB(20)¢ "CALL "+ TAR(30) 5 "STREET ADDRESS" 
STARCSS)$ "CITY & ZIP CODE" #TAB(81)%"FHONE” 
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FROGRAM NAME? MAILING LIST/MILLER 


00345 READ CigeF Sol $y SteZePs 

00347 N=NtliREM N IS COUNTER FOR TOTAL DATA LINES 

00350 IF L¢=" "THEN N=N-1iGOTO 298 

O0O355 PRINT Fes" “shes TABC20)35 

00360 GOSUR 2000 

00365 PRINT C1$#TAR(29) $S$3TARCSS) ¢ 

00370 PRINT C#§TAB(80)5F¢2GOTO 345 

00400 LINE INFUT "WHAT IS LAST NAME OR CALL ? "#T1I$SRESTORE 

00410 READ CitsF Srl $oStoZePs 

00420 IF T1i$=L$THEN FRINT Cis" "SFOS" 32> "SLES" co "ESSE" "B73 
" "SPS IN=1 

00430 IF T1i$=C1$THEN PRINT ">> "SCISs" <e "FFSF" "FLOR" "“SSHS" 
"9Z9" "SPHINGL 

00450 IF Cig<>" "THEN 410 

00460 IF Ci$=" "THEN IF N=OTHEN PRINT T1$$" IS NOT IN DATA LIST" 
00490 LINE INFUT "ANOTHER SEARCH (Y OR N) ? "$T24¢ 

00492 CLEAR N 

00495 IF T2¢="Y"THEN 400 

00497 IF T2%<>"N"THEN 490 

00499 END 

02000 REM SUBROUTINE TO UNFACK ZIF CODES 

02020 IF Z>8THEN 2059 

02050 C$="KALAMAZOOs MI. 49001"?GOSUB 2190 

02052 C$="KALAMAZOO» MI. 49002"iGOSUB 2190 

02054 C$="KALAMAZOOr MI. 49004"iGOSUR 2190 

02056 C$="KALAMAZOO+ MI. 49006"{GOSUR 2190 

O2058 C$="KALAMAZOOr MI. 49007"tGOSUB 2190 

O2059 IF Z>41THEN 20713REM THIS AND OTHER TYPICAL LINES TO SPEED 
SELECTION 

02050 C$="KALAMAZOO» MI. 49008"3GOSUB 2190 

02062 C$="KALAMAZOO» MI. 49009"$GOSUB 2190 

02064 C$="ALLEGAN» MI. 49010"3GOSUB 2190 

02066 C$="AUGUSTAy MI. 49012"3GOSUBR 2190 

02068 C$="CLIMAXy MI. 49034"GOSUB 2190 

02070 C$="COMSTOCKy MI. 49041"3GOSUR 2190 

02071 IF Z>80THEN 2084 

02072 C$="TOWAGIACy MI. 49047"3GOSUR 2190 

02073 C$="GALESBURGy MI. 49053"{tGOSUB 2190 

02074 C$="GOBLES» MI. 49055":GOSUB 2190 


PROGRAM NAME? MAILING LIST/MILLER 


< CONT‘’D > 


02075 C$="CONSTANTINE? MI. 49042"3GOSUB 2190 
02076 C$="LAWRENCEy MI. 49064":GOSUB 2190 
02077 C$="DELTONy MI. 49046"3GOSUB 2190 
02078 CH="LAWTONy MI. 49065"3GOSUB 2190 
02079 CH="MARTINy MI. 49070" 3GOSUB 2190 
02080 C$="MATTAWANy MI. 49071"2GOSUB 2190 
02081 C$="PAW FAWs MI. 49079"3GOSUB 2190 
02082 CH="FLAINWELL» MI. 49080"?GOSUB 2190 
02083 C#="OSHTEMOs MI. 49077":GOSUB 2190 
02084 C#="FPORTAGE? MI. 49081"GOSUB 2190 
02086 CH="RICHLAND, MI. 49083"3GOSUB 2190 
02087 CH="SCOTTSy MI. 49088"3GOSUB 2190 
02090 C$="THREE RIVERS» MI. 49093":3GOSUB 2170 
02091 C#="STURGIS» MI. 49091"GOSUB 2190 
02092 C$="VICKSBURG, MI. 49097"3GOSUB 2190 
02094 C$="LANSING» MI. 48912"°GOSUB 2190 
02095 C$="EDWARDSBRURG, MI. 49112":GOSUB 2190 
02096 CH="GRANDVILLE»s MI. 49418"3GOSUB 2190 
02098 CH="OTSEGOr MI. 49078"2GOSUB 2190 
02100 C#="FPALMETTOr FL. 33561"iGOSUB 2190 


02185 C$="NO ZIF STORED FOR 


*";GOSUB 2190 


02190 IF VALC(RIGHT$(C%»3))=Z THEN 1253REM EXIT LOOP & DRECT TO MA 


IN FROGRAM 


02200 RETURN 


06000 REM 

046005 DATA 
06010 DATA 
06015 DATA 


06020 TATA 
06025 DATA 
06030 DATA 
2-5313" 
06035 DATA 
06040 TATA 
90" 

06045 DATA 
~1126" 
06050 DATA 


"KBOQER"»"AL"» "NELSON" »"7276 GARLAND" 8» "382-3076" 
"KBEMT"» "JIM" » "KIRKLIN" » "657 HAMILTON" 712 "668-3108" 
"WEKI"y "KEVIN" » "MARTIN" » "322 N FAIRVIEW" 29129 "487-6798 
"WOONLJ"» "STEVE" y"ZINGMAN"?" "999y" * 
"WASMFG"y "FREI" »"KAYS"s "S137 EVANS "v12"344-9480" 
"KSDUFI"» "WARD" » "DEAN" »"922 ALLEGAN ST. BOX 182"%%70%"67 


"WECX"» "DICK" ys "BOLL "»"R #3"210%"673-6170" 
"WASTAN'y "JIM" » "BURROUGH"s"134 MARIETTE ST" *80%"685-60 


"WEEFEU"» "RALPH" » "HAYWARD" "4400 FENINSULAR DR"97% "649 


"WETZA"s "BILL "*"KIRKS"s"RR #1 BOX 274"y129"731-4361" 


oe 


PROGRAM NAME? MAILING LIST/MILLER < CONT‘D > 


06055 DATA 
4-5009" 
06060 TATA 


10000 TIATA 
10001 DATA 
10002 DATA 


++ 
7 
7? 
* 
+? 


“WABZXZ"» "ARCHIE" » "MC CLURKEN"s"3471 S WILSON"*s418% "53 
"WENZQ"» "GRANT" » "WILCOX"+"10134 TERRY LANE" +2 "323-014 
a ts e,* *,* ByO9Dy," a 


a“ a," has a," *yODy," s 


"END" »y "END" » "END" » "END" +O» "END" 


od 
7 
*? 
7 
eo 
oo 
2° 
+7 
77 
7 
7 
o 
+e 
7 
oe 
7 
-?e 
+ 
+f 
+ 
7 
Sad 
o* 
+o 
+e 
+ 
* 
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i 


| PROGRAM NAME TYFESETTER/ENNS 


Lo REM 
| 2 REM 
3 REM 


TYPFESETTER...ROBERT ENNS..-HUG FAN BBS-1040 


ThiS FROGRAM JUSTIFIES LINES OF ANY PRACTICAL LENGHT IT PAT 
BASIC TO DO THIS 

THE PROGRAM ALSO PAUSES AFTER FINAL COFY. THIS ALLOWS YOU T 
O TAKE 

7 REM THE PAPER OUT OF THE FRINTER WITHOUT ANY EXTRANEOUS TYPE SU 
CH AS "STOR" 

8 REM IN ORDER 
| BLANK 

9 REM IN FLACE OF THE 
$$ HENCE 

10 REM THE GUMMY INFUT STATEMENT IN LINE 411.THAS DOES MEANrHOWEY 
ER» THAT 

11 REM YOU MUST INPUT A CHARACTER BEFORE HITTING CR AFTER REMOVIN 
G THE COPY. 

12 REM THE PROGRAM DOES NOT ATTEMPT TO BUSTIFY A LINE LESS THAN 6 
OF 

REM THE SELECTED LENGHT. YOU 


TO EFFECT A "FAUSE" IN BASIC THE FROGRAM PATCHES A 


“?" WHICH BASIC USES IN ITS INFUT STATEMENT 


CAN FORCE IT TO JUSTIFY A SHORT LI 
NE: 

14 REM BY SFACING CLOSE TO THE 
BUSTIFICATION 

15 REM BY ENDING A LINE 
16 REM 

90 DIM A$(60)\F=1 

95 POKE2866% 255 


END OF THE LINE.» YOU CAN FORCE NO 


WITH "\". 


100 
130 
179 
L890 
199 
19S 
290 
2190 
2a 
230 
240 
24. 


PRINT 
PRINT 
PRINT 
GOSUB 


“LINE LENGHT’ ¢N\INFUT L 


TYPE 
TYPE 
430 


4 WHEN DIONE ¢ 
UF TO.e+” 


FOR 


TO 1000 


PRINT ITABCS) ¢ 
INFUT ACT) 

X= XI \Q20t 

TF AS CT >= 7 AAR 
A$CTI=ARCTIR? 7% 
IF Q>7 THEN 250 
PRINT CHR C7) 5 


THEN 490 


i 


FROGRAM NAME? TYFESETTER/ENNS <= CONT‘D > 


242 GOSUB 430 

245 Q=0 

250 NEXT I 

255 GO TO Soo 

270 PRINT “LINE UPPAFER 1 LINE BACK & HIT CR’ 

280 PRINT “WHEN DONEyREMOVE COPY & HIT ANY KEY THEN HIT CR’#\INFU 


285 PRINT 

290 FOR J=1 TO N 

291 M=ONTS$=A$(JONZ=LENC TS) 

300 IF SEGS(T$sZ—-19Z-1)<2/°\"% THEN 310 
305 PRINT SEGS(T#»AvZ~2)\GO TO 410 
310 IF Zs*L/1.5 THEN 314 

312 FRINT SEG#(T#91»¥Z-1)\GO TO 410 
314 IF SEGS(T$»Z—-LyZ-1)<" % THEN 316 
315 T$=SEG$(TH91»Z-1)\Z=Z-1\GO TO 314 
316 IF Zs=L+1 THEN 400 

317 IF F=1 THEN 319 

318 F=1i\GO TO 320 

319 FRZ/2 

320 T=F\K=O\BR=Z 

$21 IF I[<>1 THEN 327 \B=Z/2 

322 IF SEGS(T$eTes Ts’ % THEN 327 

323 IT=I+t1\IF I<Z THEN 322 

324 GO TO 400 

$27 IF SEG#(T$yIyIT)<>’ * THEN 390 

$28 TS=SEGS(THylel)&% “&SEGS(TSyT+19Z) 
330 KR=K+t4N\Z=Z+1\IF Z=L+1 THEN 400 

334 T=I+1 

390 T=I+ti\IF I<=B& THEN 327 

392 IF Z>=L+1 THEN 400 

393 M=MtINIF Ke>0 THEN 317 

394 IF M*3 THEN 317 

400 FRINT TS 

410 NEXT J 

411 FRINT \FOKE3090%32\INFUT DS 

412 POKESO90r63\F RINT ‘AGAIN’ #\INPUT Z4% 
414 IF SEGS(Z$e191)="Y"’ THEN 270 

420 STOF 
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PROGRAM NAME’ TYFESETTER/ENNS < CONT‘’D = 


430 FOR K=1 TO L+S\PRINT CHR#(32)5\NEXT K\PRINT CHR$(6124)CHRS$(8)C 
HR#¢3) 

440 RETURN 

490 N=X-1 

900 PRINT 

310 FOR IT=1 TO N\PRINT ITABC6)ASCIXNNEXT I 
340 PRINT \FRINT “ANY ERRORS’ #\INPUT Z$% 

350 IF SEG$(Z$rv1lr1)="Y"’ THEN 600 \GO TO 270 
600 FRINT “RETYPE LINE #°s\INFUT I 

655 PRINT ITARCS) #N\INFUT ASC TINASC TO =AS(CT)&% ’ 
660 PRINT “ANY OTHERS’ #\NINFUT Z$\GO TO S50 
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SET UF 


TIME KEEPER 
CLOCK UIVEC 


HEATH ASM 
Fase 1 


*_ OOOO OOO OOK OK OK OOK KK KOK 

* "TIME KEEFER" IS A SERIES OF 

x SUBROUTINES THAT MAY BE USED AS A 

x UNIT OR SEPARATED FOR SPECIALIZED 

x APPLICATIONS. RESTRICTIONS TO USE OF 
x INDIVIQUAL ROUTINES ARE IDENTIFIED 

x IN THE REMARKS FRECEEDING EACH ROUTINE. 
x COPYRIGHT ~ LEIF Re. DUNN 

ss 16 APR 78 ~ FSC BOX 2621 

* ~ AFO NEW YORK 09238 

OOOO OOOO OOOO IGOR IO OK OOK OK KKK 


5 - 88 


#10 


TIME KEEFER 
CONSOLE URIVER 


HEATH ASM 
Fase 2 


#104,.01.00 


x XKKXK CONSOLE DURIVER ~ HEATH/WINTEK 
040.100 ORG O40100A 
000.007 BELL EQU 007Q 
040.037 *UIVEC EQU 040037A 
TL1si14 START EQU L11111A 
122.222 RESTART EQU 122222A 
000.100 UMI.18 EQU 010000008 
000.200 UMI.HE EQU 100000008 
000.300 UMI.2B EQU 110000008 
000.040 UMI.PE EQU 001000008 
000,020 UMI.PA EQU 000100008 
000.000 UMI.LS EQU OO000000R 
000.004 UMI.L6 EQU 000001008 
000.010 UMI.L7 EQU 000010008 
000.014 UMI.L8 EQU 000011008 
000.001 UMI.1X EQU OOOOO000I1B 
000.002 UMI.16X EQU 000000108 
000.003 UMI.64X EQU OO0O00011E 
000,100 UCT.IR EQU O1LO00000BR 
000.040 UCT.RO EQU 001000008 
000.020 UCT.ER EQU 000100008 
000.004 UCT.RE EQU 000001008 
000,002 UCI.IE EQU 000000108 
000.001 UCI.TE EQU OOO00001R 
000.040 USR.FE EQU 001000008 
000.020 USR.OE EQU Q0010000R 
000.010 USR.PE EQU 000010008 
000.004 USR.TXE EQU QO000100R8 
000.002 USR.«RXR  EQU OO0000108 
000,001 USR.«TXR EQU OOO00O001B 
000.372 IF.COF EQU 3720 
000.372 OF .COPF EQU 372Q 
000.373 IF.CIS EQU 373Q 
000.373 OF.CIS EQU 3730 
000.373 IF.COS EQU 373Q 
000.373 OF .COS EQU 373Q 
000.370 IF. TOF EQU 370Q 
000.370 OF. TOF EQU 370Q 
000.371 IP. TSP EQU 371Q 
000.371 OF. TSP EQU 3718 
000.001 CC.HLD EQU O1 
000.002 CC. UMF EQU 02 
000-010 CC.CTLA EQU 0108 
000.020 CC.CTLE EQU O20Q 
000.040 CC.CTLC EQU 040Q 
000-100 CC.CTLO EQU 1008 

xX FROGRAM ENTRY FOINTS 

om 040.100 303 100 040 ENTRY JMF ENTRY 

040.103 303 222 122 JMP RESTART 

x FORT ROUTINES 
040.106 333 372 $COIN IN IF.COPF 
040.110 311 $RET RET 
040.111 323 372 $CNOUT OUT OF .COF 
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TIME KEEFER HEATH ASM #104.01. 0 


CONSOLE DRIVER Pade 3 

040.113 311 RET 
040.114 333 373 $CISI IN IF.CIS 
040.116 311 RET | 
040.117 323 373 $CISO OUT OF .CIS 
040.121 311 RET 
040.122 333 373 $COSI IN IF.COS 
040.124 311 RET 
040.125 323 373 $COSO OUT OF .cCOS 
040.127 311 RET 
040.130 333 370 $TDIN IN IF. TOP 
040.132 311 RET 
040.133 323 370 $TLOUT OUT OF. THF 
040.135 311 RET 
040.136 333 371 $TSIN IN IF. TSF 
040.140 311 RET 
040.141 323 371 $TSOUT OUT OF. TSP 
040.143 311 RET 

x REMOTE ENTRY FOINTS 
040.144 303 255 040 $RCHAR JMP $RCHAR. 
040.147 303 332 040 $WCHAR JMF $WCHAR. 
040.152 303 367 040 $FRSCL JMF $F RSCL. 

x DATA AND BUFFERS 
040.155 000 $INBUF De 9) w& 
040.156 ns 30 
000.035 $INBUFL EQU x~$ INBUF~2 
040.214 000 377 000 $CSIk DB 00Q%37787000Q 
040.217 O01 167 210 DE 01Q%167Q»210Q 
040.222 002 157 220 Uk 020°157Q7220Q 
040.225 003 137 240 DER 03Q%137Q%240Q 
040.230 004 077 300 Dg 04Q7077Q»300Q 
040.233 017 177 002 Dg 17Q%177Q%002Q 
040.236 020 175 000 DB 200717587000Q 
040.241 O21 176 000 De 21Q*176Q*000Q 
040.244 023 176 O01 DE 23Q%176Qr001Q 
040.247 177 De _ 177@ 
040.250 203 042 $CSIC LW O ENTER CONTROL ENTRY FOINT 
040.252 000 $CSLCTL OB re) 
040.253 000 COLNO DE ) 
040.254 120 $CSLLEN D& 80 
040.255 345 $RCHAR. FUSH H 
040.256 041 155 040 LXE Hy $INBUF 
040.261 176 $RCHARL MOV AryM (A) = COUNTER 
040.262 247 ANA A 
040.263 312 261 040 JZ $RCHARI 
040.266 363 Dr 
040.267 325 FUSH tf] 
040.270 065 DCR M 
040.271 126 MOV lyM 
040.272 043 INX H XS 
040.273 176 MOV AyM “ 
040.274 376 173 CFI 173Q 
040.276 322 310 040 JNC $RC1.5 
040.301 376 141 CFI 141Q 
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= KEEPER 


040.303 
040.306 
040.307 
040.310 
040.311 
040.312 
040.315 
040.316 
040,317 
040.320 
040.321 
040.322 
040.325 
040.326 
040,327 
040.330 
040.331 
040.332 
040.333 
000.000 
040.336 
040.337 
040.342 
000.000 
040.343 
040.346 
040.347 
040.350 
040.351 
040.353 
040.354 
000-000 
040.357 
040-360 
040.363 
040.364 
040.367 
040,371 
040.374 
040,377 
041,001 
041.004 
041.007 
041,011 
041.014 
041.017 
041.020 
041.023 
041.025 
041.030 
041.033 
041.036 
041.040 


GONSOLE DRIVER 


332 
326 


365 
025 
372 
043 
176 
053 
167 
043 
303 
373 
361 
321 
341 
311 
365 
072 


037 
332 
037 


322 
361 
311 
065 
076 
345 
315 


037 
$22 
361 
303 
076 
315 
315 
076 
315 
315 
076 
315 
315 
257 
062 
076 
062 
041 
042 
076 
303 


040 


$25 


311 


354 


040 


040 


040 


040 


040 


040 


040 


040 


040 


040 
040 


040 
040 


040 
040 


040 
040 
041 
040 


040 


$RCHARA 
$RC1.5 
$RCHAR2 


$RCHARS 


$WCHAR,. 
$WCHAR1 


$CSI2 


$WCHAR2 


$FRSCL. 


HEATH ASM #104.01.00, 


Pade 4 


$RCOHARS 
H 

ArM 

H 

MA 

H 
$RCHAR2 


FSW 
0 
H 


FSW 
$CSLCTL 
CC.HLD-1 


$WCHARL 


CC.0MP-2 
$WCHAR2 
FSW 


M 

Ay BELL 
FSW 

$COST 
USR.TXR~-1 


$WCHAR2 

FSW 

$CDOUT 

Ar201Q 

$CISO 

$TSOUT 

Av,UCI.IR 

$C ISO 

$TSOUT 
AvUMI.1BtUMI,.LE+UMI.16X 
$C ISO 

$TSOUT 

A 

$INBUF 

Ar303Q 

eUTVECt+S 

Hy $CSINT 

e+UTVECtH7 
ASUCT.-ERtUCT.REtUCT.IE+UCT.TE 
$CISO 


TIME KEEFER HEATH ASM #104.01.00 


CONSOLE DRIVER Fage 5 
x CONSOLE INTERRUFT PROCESSOR 
041,043 345 $CSINT FUSH H Ge, 
041.044 365 FUSH FSW 
041,045 315 114 040 CALL $CISI 
041.050 346 002 ANTI USR+RXR 
041.052 304 0461 041 CNZ $CSI1 
041.055 361 $CSIX FOF FSW 
041.056 341 FOF H 
041,057 373 ET 
041.060 311 RET 
041.061 041 155 040 $CSI1 LXI Hy $INBUF 
041.064 076 035 MVI Ay $INBUFL. 
041.066 276 CMF M 
041.067 334 350 040 CC $CSI2 
041.072 064 $CSI3 INR M 
041.073 176 MOV Ay 
041.074 205 Ang be 
041.075 157 MOV LyaA 
041.076 315 106 040 CALL $COIN 
041.101 346 177 ANT 177Q 
041.103 167 MOV MvA 
041.104 374 040 CFI 040Q 
041.106 320 RNC 
041,107 O56 212 MVI Lv #$CSIB-2 
O41,1i11 043 $CSI5S INX H 
041,112 043 INX H 
041.113 276 CMF M 
041.114 330 RC Yow 
041,115 043 INX H 
041.116 302 111 041 JNE $CSI5S 
041,121 O72 252 040 LOA $CSLCTL 
041.124 246 ANA ‘ 
041.125 043 INX H 
041.126 256 XRA M 
041.127 062 252 040 STA $CSLCTL 
041,132 365 FUSH FSW 
041.133 056 155 MVI L.» #$ INBUF 
041.135 065 DCR M 
041.136 361 FOF PSW 
041,137 360 RF 
041.140 O52 250 040 LHLD $CSIC 
041.143 351 FPCHL. 
5 = 92 


TIME KEEPER HEATH ASM #104,.01.00, 


INTERRUPT PROCESSOR Fase 6 
rN x OOOO «TIME KEEPER ROUTINE oOQOOOOKx 
x ASSUMES PAM-8 IS SET UP TO ACCEPT 
x USER INTERRUFT PROCESSING OF 
xk LEVEL 1 INTERRUPTS. ASSUMES INT~1 
x RATE OF SOO FER SECOND OR 2 MS 
| BETWEEN STROKES. 
! 041.144 365 TIMEK FUSH SW SAVE 
041.145 305 PUSH B ALL USED 
041.146 345 PUSH H REGISTERS 
041.147 363 DT STOP INTERRUFTS 
| 041.150 052 310 041 LHLD INTNO FOINT TO STROKE COUNT 
041.153 053 DCX H HACK IT ONCE 
| 041.154 174 MOV AsH SET 
041.155 265 ORA L. FLAGS 
041.156 312 200 041 JZ UPDATE IF READY: COUNT 
041.161 042 310 041 SHLD INTNO NO» CLEAN UP 
| 041.164 341 POF POF H REGISTERS AND 
| 041.165 301 FOF B EXIT 
| 041.166 361 POF FSW TIMED IF SELECTED 
041.167 072 010 040 LIA »MFLAG GET USER OFTION 
041.172 037 RAR CHECK FOR 
041.173 037 RAR LED DISFLAY 
041.174 334 365 041 cc TIMED OF TION 
041.177 311 RET 
041.200 041 364 001 UPDATE LXI Hy SOO SET STROKE COUNT 
| 041.203 042 310 041 SHLD INTNO IN COUNT WORD 
041.206 041 313 041 LXI H»TIMES+1 FOINT TO SECONDS 
041,211 076 001 MVI Avil INCREMENT TIME 
041.213 206 ALL M * 
041.214 376 012 CFI 100 A<10? 
041.216 332 304 041 ae MOV NOvEXIT 
041.221 315 337 041 CALL AGRI YES» BUMF TENS 
041-224 376 006 CFI 60 10'S > 6? 
| 041.226 332 304 041 JC MOV NOvEXIT 
041.231 315 326 041 CALL A.GRS YES» BUMF MINUTES 
041.234 376 012 CFI 100 MINUTES = 9 ? 
! 041.236 332 304 041 Jc MOV NOvEXIT 
| 041.241 315 337 041 CALL A+GRP YES» BUMF 10’S 
041.244 376 006 CFI 6 10'S > 6? 
041.246 332 304 041 JC MOV NO*EXIT 
041.251 315 326 041 CALL A.GR6 YES» BUMF HOURS 
041.254 376 004 CPI 40 HOURS > 4? 
| 041.256 332 304 041 JC MOV NO» EXIT 
| 041.261 167 MOV MrA YES» SAVE HOURS 
| 041.262 053 DCX H ANI GET 
041.263 176 MOV ArM TENS OF HOURS 
041.264 376 002 CFI 20 HOURS > 20 ? 
041-266 322 346 041 JNC CLRTIM YES, TIME = ZERO 
041.271 167 MOV MeA NOy RESTORE 
041.272 043 INX H ORIGINAL HOURS 
041.273 176 MOV AyM COUNT 
> 041.274 376 012 CFI 100 HOURS > 9 ? 
041.276 332 304 041 JC MOV NO» EXIT 


TIME KEEPER HEATH ASM #104,.01.00 


INTERRUPT PROCESSOR Pade 7 
041.301 315 337 041 CALL AGRO YES, BUMP 10’S 
x JMF MOV AND EXIT o 
041.304 167 MOV MOV MyA SAVE TIME DIGIT 
041.305 303 164 041 JMP POF ANID EXIT 
x 1OOKOK DATA OOK 
041.310 364 001 INTNO DW 500n STROKE COUNT 
041.312 000 000 TIMES LW o SECONDS 
041.314 000 000 TIMEM DW 0 MINUTES 
041.316 000 000 TIMEH DW 0 HOURS 
041.320 311 041 TIMET DW TIMES-1 ADDRESS TABLE 
041.322 313 041 DW TIMEM~1 
041.324 315 0414 TW TIMEH~1 
040.010 .MFLAG  EQU 040010A  PAM-8 USER OPTION FLAG 
Nw 
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TIME KEEPER HEATH ASM #104,.01.00. 


| TIME KEEPER SUBROUTINES Pade 8 
Lam 
kK «=o TIME KEEPER ROUTINES OOOOOOOOKx 
x THESE ROUTINES ARE USED TO RECTIFY 
x DECIMAL TIME (SECONIIS) INTO NORMAL 
x CLOCK TIME. I.E. HOURS» MINUTES AND 
| x SECONDS. 
| x ROUTINE "CLRTIM" IS USED TO ZERO OUT 
x THE CURRENT TIME. THIS OCCURS AT 
x 23359359 AND MAY BE FATCHED TO 11:59%59 
041.326 257 A.GRS XRA A OLD TIME = 0 
| 041.327 167 MOV MrA SAVE IT 
041.330 043 INX H RUMF POINTER 
| 041.331 043 INX H UF TO NEXT 
041.332 043 INX H UNIT OF TIME 
041.333 076 001 MVI Avil ANI INCREMENT 
041.335 206 ALL M IT AND 
044.3536 B11 RET EXIT. 
041.337 257 A.GR? XRA A OLD TIME = 0 
| 041.340 167 MOV MrA SAVE IT 
| 041.341 053 licx H POINT TO 10’S 
| 041.342 076 001 MVI AviD DIVISION AND 
041-344 206 ADn M INCREMENT LT 
041.345 311 RET ANI EXIT 
| 041.346 041 312 041 CLRTIM  LXI HyTIMES FOINT TO TIME 
041.351 006 006 MVI Byrd SET LENGTH OF FIELD 
| 041.353 257 XRA A CLEAR REGA 
‘% 041.354 167 CLR MOV MrA STORE 0 
041.355 043 INX H BRUMF FOINT 
041.356 005 NCR R DECREMENT COUNT 
| 041.357 302 354 041 JNZ CLR NOT ZERO» DO AGAIN 
| 041.362 303 164 041 JMP POF AND/OR EXIT 
co 
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TIME KEEPER 
LEQ TIME DISPLAY 


041.365 
041.366 
041.367 
041.370 
041.371 
041.372 
041.375 
042.000 
042.002 
042.004 
042.005 
042.006 
042.007 
042.012 
042.015 
042.016 
042.017 
042.020 
042.022 
042.023 
042.024 
042.025 
042.026 
042.027 
042,030 
042,033 
042.035 
042.036 
042.037 
042.040 
042.041 
042.042 
042.043 
042.044 
042,047 
042.050 
042,051 
042.052 
042.053 
042.054 


040.023 
003.356 


363 
305 
325 
345 
365 
021 
041 
014 
006 
176 
$25 
345 
041 
021 
137 
031 
176 
366 
341 
321 
022 
053 
033 
005 
302 
076 
022 
033 
043 
043 
043 
043 
015 
302 
361 
341 
321 
301 
373 
311 


004 


002 


Pase 9 
wo 
xX *XKKKK FRONT FANEL LED DRIVER KKXKKKKKX 
x ASSUMES TIME IS STORED IN SOME 
x RAM IN FORMAT SSMMHH. DISPLAYS 
x HOURS ~ MINUTES ~- SECONDS ON 
x ADDRESS/IATA LEDS. 
TIMED Lt STOP EVERYTHING 
FUSH RB 
FUSH 0 AND SAVE 
FUSH H ALL 
FUSH PSW REGISTERS 
LXI Dy DLEDS FOINT TO SECONDS 
LXI Hy TIMES+1 VITTO 
MYT C3 SET LOOF 
MOVE MVI Bs2 COUNTERS 
MOVED MOV A»M GET BYTE 
PUSH ti SAVE POINTERS 
FUSH H 
LXI H» OLA FOINT TO SEGMENT TABLE 
LXI Dvd 
MOV EvA INSERT INDEX DIGIT 
DAD i] FOINT TO SEGMENT CODE 
MOV Ay LOAD IT 
ORI 2008 TURN OFF DECIMAL 
FOF H RESTORE FOINTERS 
FOF 0 
STAX 0 STORE DIGIT IN DLEDS 
LicxX H BUMP FOINTERS 
ncx tl DOWN TO NEXT 
DCR EB DIGIT 
ANZ MOVO AND LOOF 
MVI Av 3770 BLANK DIGIT BETWEEN 
STAX tl UNITS 
nCx I BUMP LED FOINTER 
INX H BRUMF RAM FOINTER 
INX H x TO 
INX H x NEXT 
INX H x UNIT 
ICR GC BUMF LOOFER 
JNZ MOVE ANI LOOF 
FOF FSW RESTORE 
FOF H ALL 
FOF ti REGISTERS 
FOF E 
ETI AND REOPEN TIMER 
RET EXIT 
xX KKKXK DATA KKKKK 
DLEDS EQU 04002348 FAM-8 DATA LEDS LSt 
TODA EQU OO3356A FAM-8 SEGMENT TABLE 
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HEATH ASM #104.01.00, 


™) TIME KEEPER 
TIMED MOVER 


042.055 
042.057 
042.061 
042.062 
042.064 
042.065 
042.066 
0424067 
042.070 
042.073 
042.075 
042.076 
042.077 
042.4100 
042.101 
042.102 
042,103 
042.104 
042.107 


HEATH ASM #104.01,.00. 
Fase 10 


K *KKKK MOVE TIME TO NEW LOCATION XXxXxxx 


x MOVES SSMMHH TIME TO 


"QE" FOINTED 


x LOCATION IN FORMAT HH MM SS. 


TIMEDE MVI 

MOVBIL MVI 

MOVIL MOV 
ALT 
STAX 
ncx 
CX 
DCR 
JINZ 
MVI 
STAX 
nCx 
INX 
INX 
INX 
INX 
DCR 
JNZ 
RET 


5 = 97 


SET LOOF 

COUNTERS 

GET BYTE 

MAKE IT ASCII 

SAVE IT 

BUMF POINTER 
LITTO 

BUMF LOOPER 

AND LOOF 

SET SPACE 

AND STORE IT 

BUMF LOOFER 

* AND POINT 

x TO 

* NEXT 

* UNIT OF TIME 

BUMF LOOFER 
AND LOOF 

OR EXIT 


TIME KEEFER HEATH ASM $104.01. 
CONSOLE TIME ENTRY Fage 11 


x XKKKXKK SUBROUTINE TO GET NEW TIME *xXxXxkxx 

x DISPLAYS CUE MESSAGE “ENTER TIME’ 

x AND EXPECTS AN ENRTY IN THE FORM 

x HH? MM3SS 

x NON-NUMBERS ARE REJECTED AND A COLON 

x CAUSES THE ROUTINE TO SHIFT TO THE NEXT 
x LOWER UNIT. EXIT IS WITH A ’CR’, 

+ 


042.110 021 006 000 TIMEN LXI Itvd SET INDEX 


042.113 373 Er ENABLE FOR CONSOLE 
042,114 315 144 040 TIMEG CALL $RCHAR GET FIMe 

042.117 315 147 040 CALL $WCHAR ECHO IT 

042.122 376 015 CFI 015Q IS IT A “CR’ ? 
042.124 312 175 042 JZ EXIT YES» EXIT 

042.127 376 072 CFI ad Is IT A COLON 7? 
042.131 312 166 042 JZ NEXTT YES» CHANGE UNITS 
042.134 376 972 CFI 072Q IS IT REALLY 
042.136 322 114 042 JNC TIMEG A NUMBER ? 

042.141 376 060 CFI 060Q IF NOT» REJECT 
042.143 332 114 042 JC TIMEG IT AND) GET AGAIN 
042.146 346 017 ANTI 0170 STRIF ASCII 
042.150 O52 320 041 LHL TIMET GET TABLE ADDRESS 
042.153 O31 Dag 0 FOINT TO CORRECT UNIT 
042.154 365 FUSH FSW SAVE ENTRY \ 
042.155 176 MOV ArM SHIFT LSO TO MSD 
042.156 053 ex H BUMP FOINT 

042.157 167 MOV MrA SAVE IT 

042.1460 043 INX H RESTORE FOINT 
042.161 341 FOP FSW RESTORE DIGIT 
042.162 167 MOV MrA SAVE IT 

042.163 303 114 042 JMF TIMEG AND) GET NEXT 
042.166 033 NEXTT DCX bf BUMF DOWN 

042.167 033 nex ti DOWN TO 

042.170 172 MOV ArT NEXT AND 

042.171 263 ORA E , SET FLAGS 

042.172 302 114 042 JNZ TIMEG IF HOURS» 

042.175 O41 360 042 EXIT LXI Hy CRLF RE TURN 

042.200 303 363 042 JMF LINOUT 
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TIME KEEPER 
CONTROL CHARACTER ROUTINE 


*KKKKK CONSOLE DRIVER 


HEATH ASM #104.01.00. 
Pase 12 


EXITS HERE ON CTL A-DD 


CTL-A ENTERS CONSOLE TIME SET ROUTINE 
CTL-B DISPLAYS TIME ON CONSOLE 
CTL-C CANCELS LED 


x 

x 

x 

x 

x 
042,203 345 ENTER PUSH 
042.204 257 XRA 
042.205 062 252 040 STA 
042.210 3641 FOF 
042.211 376 210 CFI 
042.213 312 307 042 JZ 
0424216 376 220 CPI 
042.220 312 257 042 JZ 
042.223 376 240 CFI 
042.225 312 245 042 JZ 
042.230 374 300 CFI 
042,232 373 ET 
042.233 300 RNZ 
042,234 072 010 040 CTLI LIA 
042.237 3464 902 ORT 
042.241 062 010 040 STA 
042.244 311 RET 
042.245 072 010 040 CTLC LOA 
042.250 346 375 ANI 
042.252 062 010 040 STA 
042,255 373 ET 
042.256 311 RET 
042.257 041 313 041 CTLE LXI 
042.262 O21 340 042 LXI 
042.265 315 055 042 CALL 
042.270 373 ET 
042.271 076 972 MVI 
042.273 062 333 042 STA 
042.276 062 336 042 STA 
042.301 O41 321 042 LXI 
042.304 303 343 042 JMF 
042.307 041 344 042 CTLA LXI 
042.312 373 ET 
042.313 315 343 042 CALL 
042.316 303 110 042 JMP 

*K KKKX ATA 
042.321 124 111 115 MESS1 Ds 
042,331 TBUF 0S 
042.341 O12 015 176 OR 
042.344 105 1146 124 MESS2 0B 
042.360 O15 012 176 CRLF DE 

5 =i/99 


FSW 
A 


$CSLCTL 
FSW 
210Q 
CTLA 
2200 
CTLE 
240Q 
CTLC 


300Q 


+MFLAG 
002 
+MFLAG 


«MFLAG 
3750 
«MFLAG 


Hy TIMES+1 


Liy TRUF +7 
TIMEDE 


Ar’3? 
TRUF+2 
TRUF+S 
H»yMESS1 
LINOQUT 
Hy MESS2 


LINOUT 
TIMEN 
OK KK KK 


‘TIME IS 


8 


0128701501740 
‘ENTER TIME 
O15Q201209176Q 


TIME DISPLAY MODE 
CTL-O INITIATES LED 


TIME DISPLAY MODE 
SAVE CHAR 

CLEAR REGA 

CLEAR CONTROL BITS 
RESTORE CHAR 
CTL-A ? 

NO» CHECK B 

CTL-8 .f 

NOy CHECK C 

CTL-C 7 

NOrCHECK 0 

CTL-B * 

ENABLE 

EXIT IF NONE 

GET USER CONTROL 
TURN OFF LED UPDATE 
STORE IT 

AND EXIT 

GET CONTROL BYTE 
TURN ON UPDATE 
STORE IT 

ENABLE 

AND EXIT 

FOINT TO SECONDS 
FOINT TO BUFFER 
GET TIME 

ENABLE COUNTER 
LOAD A COLON 

EQIT TIME FORMAT 


POINT TO TIME MESSAGE 
AND DISPLAY 

FOINT TO ENTER MESSAGE 
ENABLE COUNTER 

DISPLAY TIME 

AND ENTER TIME 


“¥176Q 


wo 


TIME KEEPER HEATH ASM #104.01.00 


CONSOLE MESSAGE WRITER Fase 13 

X KKKKK DISPLAYS LINE ON CONSOLE XxXxXxXxXxX 

x ANY CHARACTERS OK. 

x ENTRY ~~ HL=LEFT END OF MESSAGE 

x LAST BYTE = 176 

x USES HLsAF ANI CONSOLE DRIVER 
042.363 176 LINOUT MOV Ay GET BYTE 
042.364 376 176 CPI A+END IS IT A 176Q ? 
042.366 310 RZ YES» EXIT 
042.367 315 147 040 CALL $WCHAR DISPLAY IT 
042.372 043 INX H FOINT BUMF 
042.373 303 363 042 JMP LINOUT ANT) GET NEXT 

x KKKXK DATA KOK K 
000.176 A+ENTD EQU 176Q TERMINATOR CHARACTER 


5 = 100 


TIME KEEPER HEATH ASM #104,.01.00. 


SET UF CLOCK UIVEC Fase 14 

x KKXKK ROUTINE TO SET LEVEL 1 INTERRUPT 

x VECTOR FOR TIME KEEFER. 

x ANY SYSTEM THAT USES TIME KEEFER 

x MUST ESTABLISH THIS VECTOR TO ALLOW 

x FAM-8 TO EXIT TO THIS TIME KEEPING 
x ROUTINE. 
042.376 076 303 SETUF MVI Ar 303Q SET JUMF 
043.000 041 144 041 LXT Hy TIMEK TO KEEPER IN UIVEC 
043.003 0462 037 040 STA UIVEC ARM UIVEC LEVEL 1 
043.006 042 040 040 SHLD UIVEC+H1 DITTO 
043.011 315 152 040 CALL $PRSCL ARM CONSOLE 
043.014 072 010 040 LIA +MFLAG GET USER OFTION BYTE 
043.017 346 O01 ORI 001Q SET USER CLOCK OFTION 
043.021 062 010 040 STA *MFLAG ARM CLOCK PROCESSING 
043.024 303 024 043 LOOF JMP LOOF AND IDLE FOR INTERRUFTS 
043.027 166 HLT 

x XKKK DATA KX 
040.037 UIVEC EQU 040037A PAM-8 LEVEL 1 EXIT 
043.030 000 ENII SETUP 


00512 Statements Assembled 
19616 Bytes Free 
No Errors Detected 
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FROGRAM NAME? MAILING LIST/BARNICK~NELSON 


10 PRINT * FROGRAM #€060778-2" 
20 FRINT \PRINT 
30 PRINT * WRITTEN BY DON BARNICK AND RAY NELSON" 


40 PRINT 

50 PRINT " THIS PROGRAM CAN BE USED AS A MAILING LIST» PERSONNEL 
ROSTER: " 

60 FRINT "OR OTHER SIMILAR TYPE FURPOSE. FRESENTLY IT ONLY SORTS 

BY? 

70 FRINT "NAME»y BUT AS WITH ANY PROGRAM CAN BE MODIFIED FOR GREAT 

ER: FLEX-* 

80 FRINT "IBILITY OR SFECIAL NEEDS. THIS VERSION ALLOWS FOR SEVEN 
VARTABLES" 

90 FRINT "TO BE LISTED AS FOLLOWS ¢*" 


100 PRINT 

110 PRINT " 1. N& (CNAMEs+++LASTs FIRST» MIDDLE) "\PRINT 

120 PRINT "“ 2+ AS (STREET ADDRESS) "\PRINT 

130 FRINT * Be C8 (CITY AND STATE. ++++CCCCCC-CCCCCy SS.)"\F 
RINT 

140 FRINT " 4, Z& (ZIF CODE) "\FRINT 

150 PRINT " 5S. RS CRESTDENCE PHONE #» INCLUDING AREA CODE,y 


IF DESIRED)" 
15S PRINT 


160 PRINT * 6. &E& (BUSINESS PHONE #*% INCLUDING AREA CODE, I 
F DESIRED)" 

165 ERIN 

170 FRINT * 7+ $$ (SOCIAL SECURITY NUMBER) "\PRINT \FRINT 


180 FRINT \PRINT 

190 PRINT * ONLY ITEM NUMBER ONE (# 1.) IS SACRED TO THE OFERATI 
ON OF THE" 

200 PRINT "FROGRAM AS IT STANDS. ANY OTHER OF THE SEVEN DATA ITEM 
§ (LINES)" 

210 FRINT "CAN BE USED FOR ANY FURFOSE YOU DESIRE. WHEN EDITING ¢ 
CHANGE) »" 

220 FRINT "JUST BE SURE YOU REMEMBER WHICH ITEM (LINE) YOU WISH T 
O CHANGE" 

230 FRINT "BY ITEM (LINE) NUMBER. "\BRINT 

240 PRINT " THIS FROGRAM CURRENTLY IS SET UP TO HANDLE UP TO ON 
E a 

250 FRINT "HUNDRED (100) NAMES ALONG WITH UP TO SIX (6) ADDITIONA 
{.* 
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FROGRAM NAME? 


260 PRINT 
NK ¢(16K)" 
270 PRINT 
(12K)° 

280 FRINT 


290 PRINT 
300 PRINT 


310 PRINT 
E USING," 
320 PRINT 
OU MAY" 
330 PRINT 
340 FRINT 
S." 

350 FRINT 
400 PRINT 
T HE 
800 
820 


822 


PRINT 
FRINT 


825 
830 
840 
900 
ETURN 
1000 
1010 
1020 
1025 
1030 
1040 
1050 
1055 
1060 
1800 
1805 PRINT 
ArIvQ9S) "3 


PRINT 
FRINT 
PRINT 
PRINT 
PRINT 
FRINT 
PRINT 
PRINT 


"ITEMS (LINES) OF DATA. 


“OF MEMORY. 


MAILING LIST/BARNICK~NELSON 


IT REQUIRES A MINIMUM OF SIXTEE 


YOU CAN OPERATE THIS PROGRAM WITH TWELVE K 


"OF MEMORY BY CHANGING THE DIMENSION (0IM) STATEMENT TO 


"FIFTY (50) OR LESS. * 
OOOO CAUTION OOKKKKKKKKKKKKK "\PRINT 


DEFENDING ON WHICH VERSION 
YOU MAY OR MAY NOT HAVE TO 


NOT BE ABLE TO USE CERTAIN 
CONSULT THE DOCUMENTATION 


\PRINT 


"IS THIS A NEW OR OLD LIST (N OR O) 
IF T$<>"0"GO TO 830 
"LOAD FAFER TAFE INTO READER AND HIT A <CR> 


HIT A CARRIAGE RETURN «<CR> 


GOSUB 4100 \L=M\GO TO 1000 
L=1i\GOSUB 900 \GO TO 1000 
L=M\GO TO 1000 

DIM N$(100) ¥A$(100) 9CH$(100) ¥Z$ (100) »R$ (100) ¥ BS (100) »SH$(100)\R 


FOR M=L TO 75 


"NAME - 
"STREET ADURESS — 
"CITYs: STATE = 
"ZIP CODE - "s\INPUT Z$(M) 

"RESIDENCE PHONE ~ "#\INFUT 
"BUSINESS PHONE 
"SOCIAL SECURITY NUMBER 

"DIMENSION LIMIT !"\STOF 


—_ 


~~ 


N=M~1\A1=0 


"LIST»s CHANGE» ERASE» ALtiy 
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INFUT » 


OF HEATH H-11 BASIC YOU AR 
MAKE SOME MINOR PATCHES. Y 
OUTPUT DEVICES AS WELL." 

ON THIS FROGRAM FOR DETAIL 


TO BEGIN FROGRAM ~ "\INPU 
"s\INFUT TS 


"SNINFUT CH 


"$\INPUT N&CMIN\IF N#(M)=""GO TO 1800 
"“gNINFUT AG(M) 
"sNINFUT CHCM) 


RCM) 


"sNINFUT BSCM) 
9 \INFUT 


"9 


S$(M)\NEXT M 


OUTFUT»s STOF (LyCvEy» 


os, 
= 
i 
a 
‘a 
/ 
Gi 
? 
uy 
o 
x 
Tt 
VV 
_ 
oe 
= 
> 
5] 
mm] 


FROGRAM NAME? MAILING LIST/BARNICK-NELSON 


1806 INFUT ES 

1807 IF E¢="L"GO TO 2400 

1808 IF E¢="C"GO TO 1830 

1809 IF E$="E"GO TO 1825 

1810 IF E¢="A"GO TO 840 

1811 IF E¢="I"°GO TO 822 

1812 IF E$="0"GO TO 4200 

1813 IF E¢="S"GO TO S000 

1820 GO TO 1805 

1825 Al=1 

1830 FRINT \PRINT "WHICH NAME "sS\INPUT TS\IF T$=""GO TO 1800 
1835 N1i=N\IF T$="?"GO TO 2000 \N2=LENCT$) 

1840 IF A1l=1G0O TO 3300 —_ 

1845 FOR K=1 TO NiNIF Té=SEGS(N$(K)rx1e»N2)GO0 TO 1860 

1850 NEXT K\FRINT “CAN‘T FIND "s#T&\FRINT \GO TO 2000 

1860 PRINT \PRINT "1) "SNSCKONFRINT "2) "SASCKINPRINT "3) "SCS CK) 


1865 PRINT "4) "#Z$CK)\FRINT "S) "s#R#CKONPRINT "6) "9 BSCK)\PRINT 
"7) "sS$(K) 

1870 FRINT \FRINT "TYPE CORRESFONDING NUMBER TO EDITy ’0’ TO EXIT 
— Sexier & 

1880 IF E=1GO TO 1900 

1881 IF E=2G0 TO 1910 

1882 IF E=3G0 TO 1915 

1883 IF E=4G0 TO 1920 

1884 IF E=SGO TO 1930 

1885 IF E=6GO TO 1940 

1886 IF E=7G0 TO 1950 

1890 GO TO 1800 

1900 PRINT \FRINT "WAS ‘“"sN(CK)5"%s NOW IS "#NINFUT N&CKONFRINT \ 
GO TO 1860 

1910 FRINT \PRINT "WAS ‘"sA8(KD3"%s NOW ITS "SNINFUT ASCKINPRINT \N 
GO TO 1860 

1915 FRINT \PRINT "WAS ‘"sCSC(K)5"%r NOW ITS "S\INFUT C#CKO\FRINT \ 
GO TO 1860 

1920 FRINT \FRINT "WAS ‘"$Z$(K)5"%»s NOW TS "#NINFUT Z$CKO\FRINT \ 
GO TO 1860 

1930 PRINT \FRINT "WAS ‘"#RE(K)5"%s NOW TS "sS\NINFUT R&CRONPRINT \ 
GO TO 1860 

1940 PRINT \FRINT "WAS ‘"$B8(K)5"%s NOW ITS "#NINFUT BSCKONPRINT \ 
GO TO 1860 
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FROGRAM NAME? MAILING LIST/BARNICK~NELSON 


1950 


PRINT \FRINT "WAS ‘"§S#C(K)8"%» NOW TS "s\INFUT S#(KI\PRINT \ 


GO TO 1840 


2000 
0 
2020 
2050 
2060 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2200 
2210 
29% 


2220 
2230 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2500 
3000 
3010 
3015 
3020 
3030 
3040 
3050 


FOR K=1 TO N\FRINT N#CKXO\NEXT K\GOSUB 3400 \FRINT \GO TO 183 


K2=N\GO TO 3620 
JL=1NJ2=INTCCONtL) /2)\ 53252 

FOR V=1 TO 3\PRINT #03\NEXT V 

FOR I=J1 TO J2 

PRINT #03N$¢1T)¢TABCW/2) SNSCI+JI3) 

PRINT #03A$CT) ¢ TABCW/2) SABC I+JI3) 

PRINT #€03C$(I)8" "sSZ8C TF TABCW/2)9CHECItI3)6" "ZECT+I3) 
PRINT #03R$¢(10)¢ TABRCW/2) sRECTI+I3) 

FRINT #023 8¢(T)¢ TABCW/2) BS (I +53) 

PRINT #03S5$¢1)¢TABCW/2) SSC I+J32\PRINT #03\NEXT I 
IF SEGS(T$sl91)="V" THEN 2180 

FOR V=1 TO LINPRINT #03\NEXT V 

IF I+K3+1>N THEN 2180 \GO TO 2200 
PRINT "HIT A RETURN TO CONTINUE ~ "“\INFUT U#\GO TO 4000 
JL =J14F2x 53 

J3=B8\ I2= IJ2+2kI3—-X\X=0 

IF J2>N THEN 2230 \GO TO 2080 

J2=N\GO TO 2080 

FRINT \FRINT "SORTING+s + ++¢"\M1=N 
MI=INTCMI/2)\IF M1=0GO TO 4300 
C=1\R=N-M1 

T=C 

J=I+MINIF NSC IO<NBCJ)2 THEN 2470 

GOSUB 3000 \I=I-MINIF I<1 THEN 2470 

GO TO 2440 

C=C+1iNIF C>RGO TO 2500 

GO TO 2430 

PRINT "STILL SORTING «+++ "\GO TO 2410 
TS=N$ CTONNS (TO ENS(CJONNG (J) = TH 
TE=AG$(CTINASCT)=ASC JONAS (JETS 
TE=C$CTINCS (LI =CH$(JONCS (J) = TSH 

TE=Z$ (CT INZ$ CT) =Z¢ (J N\ZE CJ = TS 
TE=RE$(CTONRSCLORERS (JONAS (CJ) = TSH 
TE=BSCTINES CID = BS (JONES (JETS 

TS$=S$ (TIN\S#$ CT) =S$(JO\S$ (J) =T&\RETURN 
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FROGRAM NAME? MAILING LIST/BARNICK-NELSON 


3300 


3340 
3345 
3350 


FOR K= 
3310 NEXT K\PRINT T4#" 
3320 FOR I= 
3330 N$(T)= 
Z$(1I)= 
NEXT I 
NSCNL) =" "\ASCND) =" "\CHCONL =" "\Z$CNL DEE 


« CONT’D » 


1 TO NINIF TS=SEG$(NS(K)y¥12N2) THEN 4050 

IS-NOT IN THE LIST ! "\GO TO 1800 

K TO Ni~d 

NSCIFL)\AS CT) =ASCIFL\C$ CI) =C$CIt1) 

7$(THELIARS (CL) ERS CIEL \BSC1) =BS(T+1)\S$(1)=S8 (T+) 


3355 ROCNL)=""\BSCNL = ""\SéCND BT" 
3360 M=M—1\NL=N1I-1\PRINT \FOR I=1 TO NI\FRINT N#CIT)\NEXT I 


3370 GOSUB 3400 \FRINT \GO TO 1800 

3400 PRINT \FRINT Ni# "NAMES "\RETURN 

3590 GOSUB 4500 

3600 KL=1\K2=6\K3=6\X1"1 

3610 IF K2>N THEN 2020 

3620 FOR I=Ki TO K2 

3640 PRINT HDING CL) #TABC33) NSC TEKS) §#TABC OS) INSCT+2KKS) FTABCIP) FN 
$ CIT +3XK3) 

3660 PRINT $DLA$(L) #TABC 33) FAS (LENS) §TABC SS) FASC IF2KKS) FTABCPP) FA 
$C IT+3XK3) 

3680 PRINT #02C#(1)5" "S7$(L)FTABCS3)FCHCTEKSDF"  "FZECT+KSD SG 
3700 PRINT #02 TAB(C66) #CHCI+2KKS) 5" "$Z$(IT+2K3) 9 

3710 PRINT #02 TABC99) FCHCLFSKKS) 5" "$Z$(I+3KK3) 

3720 FRINT EN ER$CL) #TABR( 33) FRE C LENS) §TAB( 66) FRECT+2KKS) FH TABC PP) FR 
$C I+3XK3) 

3740 PRINT $02R$ CL) #TAR( 33) §BSCIFKS) § TABC 66) BSC T+2KKS) FTABCO9) FB 
$C T+3XK3) 

3750 PRINT ELES$(1) #TAB(33) $99 (IT4K3) §TAB( 66) SHC T+2#KS) §TABC 99) 9S 
$(I+3¥K3) 

3760 PRINT #03\NEXT I\FOR F=1 TO L3\FRINT #013\NEXT F 

3765 IF It¢3KK3+1)2N THEN 3790 

3770 K1=K1+4kK3 

3780 K2HK2+4KK34+2KX1\X1=O\K3=8\GO TO 3610 

3790 PRINT “HIT A CARRIAGE RETURN TO CONTINUE ~ "\INFUT X% 

4000 PRINT "LIST AGAIN (Y OR N) ~ “#\INFUT TS 

4010 IF T$="Y" THEN 4300 

4020 IF T#<>"N"GO TO 4030 

4025 GO TO 1800 

4030 PRINT "Y OR Ny FLEASE «eeeee "NGO TO 4000 


4050 PRINT 


\GO TO 3320 
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PROGRAM NAME? MAILING LIST/BARNICK-NELSON < CONT‘’D > 


4100 INPUT #13M\M2=N+1\M3=N4+M 

4110 FOR K=M2 TO M3 

4120 INFUT FLING CK) PASCK) 9CHCK) yZ$ECK) OROCK) »BSCK) 9 SHCK) 

4130 NEXT K\M=M3+1\GO TO 1800 

4200 PRINT "PREPARE PUNCH W/LEADER TAPE * 

4205 PRINT “HIT A CARRIAGE RETURN WHEN READY ¢eeoeeee"NINPUT CH\PR 
INT #13°N 

4210 FOR K=1 TO N 

4220 PRINT #13N$(K) 

4230 PRINT #12A8(K) 

4240 PRINT #12C4(K) 

4250 PRINT #122 (K) 

4260 PRINT #13R8¢(K) 

4270 PRINT #13 B8¢(K) 

4280 PRINT #13S4(K) 

4290 NEXT K\GO TO 1800 

4300 PRINT \FRINT "ENTER THE CORRESPONDING NUMBER OF YOUR OUTFUT 
DEVICE -* 

4310 PRINT \PRINT "CONSOLE TERMINAL = O"\PRINT "DECPRINTER = 2" 
4320 PRINT "LINE PRINTER = 3"\FRINT \INFUT ti 

4330 IF [>3 THEN 4300 \IF D0 THEN 4300 

4335 IF t=2 THEN 4400 

4340 PRINT \FRINT "ENTER OUTPUT DEVICE COLUMN WIDTH (729809132) ~- 
“\NINPUT W 

4350 IF W=72 THEN 4370 \IF W=80 THEN 4370 \IF W132 THEN 3590 
4360 GO TO 4340 

4370 PRINT \FRINT "VIDEO OR HARD-COPY ~"\NINFUT T$ 

4380 IF SEG$(T$+191)="V" THEN 2050 \IF SEG$(T$r191)="H" THEN 4420 


4390 GO TO 4370 

4400 PRINT "THIS VERSION DOES NOT ACCEFT A DECFRINTER."\GO TO 430 
0 

4420 GOSUB 4500 \J1=1\U2=6\X=2\ IF J2=N THEN 4430 \J3=J2\GO TO 206 
.¢) 

4430 J2=N\J3=J2\GO TO 2060 

4500 PRINT \PRINT "ENTER THE FIRST OF TWO TITLE LINES (38 CHAR. M 
AX!) -* 

4510 INPUT Ti$\IF LEN(T1$)>38 THEN 4500 

4520 FRINT \FRINT "ENTER THE LAST TITLE LINE (38 CHAR. MAX!) —* 


Sd 


oy 
53 
ea 
ol 
rh 
Gg 
: 
Pi 
iss) 
So 
". - 
f 
“A 
f 
f 
~ 
= 
ra 
> 
? 
7 
é 
i 


FROGRAM NAME MAILING LIST/BARNICK-NELSON * CONT’D > 


4530 INPUT T2$\IF LEN(T2$)>38 THEN 4520 

4540 TI=INT ( (38—-LEN(T1$) )/2)42\T2=INT ( (38-LEN(T2$) 72) +2 

4600 FRINT "POSITION PAPER IN OUTPUT DEVICE. HIT RETURN WHEN REA 
DY."\INFUT US 

4630 FOR I=1 TO S8\PRINT #D3\NEXT I 

4700 Q=((W/2)-23) 

4710 PRINT GEILE TAR CQ) 3 OOOO OOO GOK ACCOR GCC AGO ORK" 


4720 PRINT #03 TABCQ)#"X"FTABCQT4L) 9K" 

4730 FRINT #DPTAB(Q)$"K"#TABRCQHTL) #T1$$ TABCQT41) 5 "XK" 

4740 PRINT #02 TABCQ)# "XK" Fs TABCQT4L) 5K" 

4750 PRINT #ULTAER(Q) #"K"F TABCQHT2) #T2S5 TABC QTL) 5K" 

4760 PRINT #DTAR(Q)#"k"#TABCQHE41) 7 "kK" 

4770 FRINT GLI TALE CQ) 3 GOO OOOO ION IO CORIO GCCCR ACA OICRCK A AOR * 


4780 FOR I=1 TO 3\FRINT #03\NEXT I\RETURN 
5000 END 


7 
oe 
oe 
?* 
Sad 
ad 
77 
oe 
ad 
7 
7 
oo 
ond 
7 
od 
o** 
Cad 
-* 
oo 
77 
od 
oe 
o 
o* 
o 
dad 
of 
od 
7 
oe 
oo 
+ 
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FROGRAM NAME? STRING SORT/WARREN 


1 FRINT 

2 PRINT "THIS IS A SIMPLE LITTLE PROGRAM TO ARRANGE ALL THE LETTE 
RS" 

PRINT "IN A SENTENCE IN ALFHABETICAL ORDER. IT WILL DISREGARD" 
FRINT "ALL ENTRIES EXCEPT THE LETTERS (CAFS ONLY) A-Z*" 
REM WILLIAM S. WARREN 

REM 12K DEC BASIC-~-ALL FUNCTIONS 

REM AFRIL 2» 1978 

DIM A¢$(72) 

FRINT 

10 FRINT "INFUT YOUR SENTENCE" 

11 INPUT AS 

12 LET L=LENCAS$) 

13 FOR T=45 TO 90 

14 FOR M=1 TOL 

15 C$=SEG$(AS»MyM) 

16 IF ASC(C$)=T THEN 21 

17 REM 

18 NEXT M 

19 NEXT T 

20 PRINT \END 

21 LET D=ASC(C#) 

22 PRINT CHRS (II) $ 

23 GO TO 17 

24 END 


COON & OD 


o* 
oe 
7 
*? 
rd 
+ 
ad 
+e 
+ 
+? 
o* 
of 
o* 
oe 
oe 
*?* 
+ 
of 
* 
+ 
+ 
+ 
+ 
Ld 
+ 
oe 
ood 
o 
o 
oe 
of 
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A"y "CR A*y"kK"» "CM 


ByH"» "MOV 


CyH"» "MOV 


DvyH"» "MOV 


EvH"» "MOV 


H»yH"» "MOV 


L.yH"» "MOV 


MrH"» "MOV 


AvyH"*» "MOV 


L*y "ADT M 


L"» "ALC M 


L"» "SUB M 


L*s "SBE 


H - U Se G c S23 0 Fost oT eet Wet A LE RoE 
aor 
FROGRAM NAME? 8080 DISASSEMBLER/BEHAR 
00010 REM BASIC DISA 
00030 DIM 019¢256) 101M 02%$¢(18)2DIM 03%(2646) 
00040 FOR I=0 TO 255%READ O1%¢(T)3NEXT I 
00070 DATA "NOF"»"kKK"»"STAX B"»s"INX B"»e "INK BR*y"DCR B® "kK" »"RLC 
00072 DATA "--~"*s"DAD B"»"LGAX B"» "DCX B"y"INK Cs "CR CC" "KkK"»"R 
RC" 
00074 DATA "-——"2 "KKK" »"STAX Ds "INX D"» "INK C'y"OCR Dy "kk" s "RAL 
00076 DATA "-——"*s "DAD Diy "LDAX Di" » "DCX D"»y"INR E*y "DCR E"y "kx" "R 
AR" 
00078 DATA Sm" se "KKK" "KKK" "INX H"y "INR H"»s"DCR H"» "kk" » "TAA" 
00080 DATA "—~=—"» "DAD HH" "KK" » "DCX H"s"INR L*»"DCR L"»"kxk"» "CMA" 
00082 DATA "——— "9 "KKK" y "KKK" "INX SE"e "INR M"»9 "DCR M"y"kKxk"» "STC" 
00084 DATA "---—"* "DAD SF" » "KKK" » "TCX SFP" y "INR 
aie | ce 
00086 DATA "MOV BreB"»"MOV BeC"y "MOV Bett"»y "MOV BeyE"» "MOV 
Byel“»"MOV ByM"» "MOV ByA" 
00088 DATA "MOV CyB"* "MOY Cel "» "MOV Croli"»"MOV CrE"* sy "MOV 
Coh"»"MOV CoM" "MOV CrA" 
00090 DATA "MOV [ley B"» "MOV DrC"y "MOV Deti"»y"MOV DeE*, "MOV 
ty "» "MOV DlyM"» "MOV Dv A" 
00092 DATA "MOV Evy B*»"MOV ExC"» "MOV Eyti"y "MOV Ev E"» "MOV 
Eyl" "MOV ExyM" "MOV Ev A" 
00094 TIATA "MOV Hy Bk"» "MOV He" y "MOV Hy" »"MOV HyE"» "MOV 
Hol "» "MOV HyM"» "MOV HyA" 
00096 DATA "MOV LyB"» "MOV LeC"» "MOV Lyotl"y "MOV LeE"» "MOV 
Lyhk"y"MOV Ly" "MOV LyA" 
00098 DATA "MOV Mek" "MOV M»C"s "MOV Myll"» "MOV MrE"“» "MOV 
MeL" "HLT" » "MOV MeA" 
OOLOO DATA "MOY AvK"»"MOY AyC"» "MOV Arli"y"MOV AvE"» "MOV 
AyL"»"MOV AyM"*"MOV AvA" 
00102 DATA "AnD B*y "Ano C*y "AnD Ds "ADD E*"s"Ant HH", "ADL 
","Ann A" 
00104 DATA "ANC B","aAnc C*» "ANC Dy "ANC E*y"Anc H"» “ALC 
"y"Anc aA" 
00106 DATA "SUB B"»"SUB C"y "SUB D"» "SUB E"»"SUB H"» “SUB 
"y"*SUB A" 
00108 DATA "SREB K"» "SBR C"y "SER D"»"SERRB E"“»"SBB H"+ "SEE 
","SRB A" 
“\ 


FROGRAM NAME? 8080 DISASSEMBLER/BEHAR 


00110 


DATA 


"»"ANA A" 


00112 


DATA 


"»y"XRA A" 


00114 


DATA 


"»y"ORA A" 


00116 


"» "CMP 


00118 
00120 
00122 
00124 
00126 
00128 
00130 


00132 
00140 
00170 


IATA 
A® 
IATA 
DATA 
DATA 
DATA 
DATA 
LATA 
DATA 


DATA 


"ANA B*y"ANA C"y "ANA [i"y"ANA E“y "ANA H"» "ANA L"» "ANA M 
"XRA B"y"XRA C"*"XRA Dl"»"XRA E"»"XRA H"*"XRA L"»"XRA M 
"ORA B*y"ORA C"v"ORA Di"s"ORA E"*"ORA H"+"ORA L."»"ORA M 
"CMP B"y "CMP C*y"CMF Ds "CMP E"» "CMF H"» "CMP L"»"CMF M 


"RNZ* 9 "POP By OK" 9 KKK" » "KKK" "PUSH By "kK"» "RST O* 
RZ" 9 BRET Sy KK y Sm yO KK KK DZ ROT 1" 

"RNC" "POP Dl" 9 OOK" 9 "XK" "KKK" 9 “PUSH Dy "KK" y "RST 2" 
PREM y Bam OOK y OOK KKK y mmm hy KK TRGT 3H 

"RPO" "POP Hy "KK" » "XTHL"» "XXK"y "PUSH H" "XK", "RST 4" 
"RPE" “PCHL"» "XXX" 9 "XCHG" 9 "XKK" yp "-——" 9 "KK"y "ROT 5M 
"RP" ys "POF POW" RK" s "OD" "KKK" » "PUSH FSW" "KK" »"RST 6 


"RM" 9 "SPHL "9 "KKK" 9 "EL" y "KKK" y Mm ——y KK ZY "ROT 7" 


FOR I=1 TO 18%READ O2%¢(1)3NEXT I 


DATA 


"»y"MVI A" 
00172 DATA “ADI"+"ACI*» "QUT" "SUI"» "IN" "SEI" » "ANI "» "XRI" 


00174 
00180 
00210 
LOA" 

00212 
00214 
00216 
00220 
00230 
00240 
00270 
00272 
00274 
00280 
00310 
00312 
00314 
00316 


DATA 


"MUI B"y"MVI C*e*MVI De "MV E*y "MUL Hy "MUL L"» "MUL M 


"ORI" "CFI" 


FOR I=1 TO 26¢REAN O3%¢(1)%NEXT I 


TATA 


DATA 
LATA 
TATA 


"LXI B"y"LXI DD" "_LXI H"+"SHLO"»"LHLO"»"LXL SP"y"STA%," 


"JINZ" 9 "IMP" "CNZ"9"JIZ"9 "CZ" y "CALL" »"JNC"s "CNC" 
"JO" "CO" ey "IPO" es "CPO" y"JPE"y "CRE" y "JR", "CR" 
"d's "CH" 


REM DIMENSION AND LOAD OF CODE SELECT TABLES 
DIM O2¢18) 201M 03¢26) 
FOR I=1 TO 18%REAU O2¢1)$NEXT I 


DATA 
DATA 
TATA 


6914222930738 946954962 
198220469211 221447219 9 22292309238 
2469254 


FOR I=1 TO 26%READ O3¢1)$NEXT I 


DATA 
LATA 
IATA 
TATA 


1921%33934742%49950+58 
1949195 9196%202%204% 205% 2109212 
218722092269 228%23472369 2429244 


2509252 


2 = £16 


oo 


PROGRAM NAME? 8080 DISASSEMBLER/BEHAR = CONT‘D > 


00320 REM ADRESS OF HIGH AND LOW MEMORY TO BEDISASSEMBLED 
00340 INPUT “INFUT LOW MEMORY ADDRESS "M1 

00350 INFUT "INPUT HIGH MEMORY ADDRESS "3M2 

00360 REM PEEK LOOF ~~ MAIN FROGRAM 

00370 FOR A=Mi TO M2iFP=FEEKCA) 

00371 IF O19¢(F)="*kX" THEN 430 

00372 IF O1$(F)="kK" THEN 400 

00373 GOTO 470 

00390 REM IS THIS A TWO BYTE INSTRUCTION 

00400 FOR I1=#1 TO 18%IF F#O2¢11) THEN 500 

00410 NEXT Ii 

00430 REM IS THIS A THREE BYTE INSTRUCTION 

00440 FOR I12=1 TO 2621F F#O3(I2) THEN 600 

00450 NEXT I2 

00470 REM FRINT ADDRESS AND ONE BYTE OP CODE 

00480 FRINT As01$(F) sTABC2O)F 

00490 NEXT A 

00500 REM FRINT ADDRESS » TWO BYTE OF CODE AND SECOND BYTE 
OO510 PRINT A#02%(11) PEEK CAtL) §TABC20)PFPEEK CAT) 

00520 A=AtLINEXT A 

00600 REM FRINT ALURESS THREE BYTE OF CODE AND ADDRESSES 
00610 IF I2<9 THEN FRINT A03$(12) PEEK CAt2) PEEK CAt1) # TAB C20) P¢P 
EEK(At2) sPEEK CAF) 

00615 IF I228 THEN FRINT A$03$(12)#256XPEEK (At2)+PEEKCAt1) § TABC20 
YP SPEEK (At2) sPEEK CAI) 

00620 A=At2°NEXT A 
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FROGRKAM NAME? BLORHYTHM/BARTOL I 


C0005 REM BIORHYTHM PROGRAM WRITTEN BY T.J. BARTOLI =~ 3-12-78 
00006 REM REQ.% H8 / 16K / STR./ PRINTER (FOR 64 CHAR.FRINTER CH 
ANGE O20) 

00010 REM HUG... P/N 885-1024 

00024 02=10 

00025 TIM R12) rA8$(12) 

00026 TATA "JAN" y "FER" "MAR" "APR" » "MAY"»"JUN"» "JUL "» "AUG" » "SER" 
00027 TATA "OCT"»"NOV"» "DEC" 

00030 FOR T=1 TO 123 READ A(T)! NEXT T 

00040 TATA 31928.52 319307319307 319319 30r 31730931 
00050 FOR T=1 TO 123 REAM RCL)3 NEXT I 

00060 LINE INFUT "NAME ? "sC4 

00070 LINE INFUT "ATE OF BIRTH (MONTH) = "$M 
00080 IF VAL(M$)=0 THEN 120 

00090 IF VAL CM$)> 12 THEN 70 

00100 MO=VAL. (MS) 

00110 GOTO 180 

OO120 FOR T#1 TO 12 

OO130 IF LEFT&(M$*3) <> ASCT) THEN 160 

00140 MOT 

00150 GOTO 180 

OO160 NEXT T 

90170 GOTO 70 

00180 LINE INFUT "ATE OF BIRTH (DAY) = “$D¢ 
OO1790 IF VAL CII$)=0 THEN 180 

00200 IF VAL (I) = 31 THEN 180 

00210 TO=VAL Ch) 

O0215 PRINT TABC 22)" MRRM" §CHRS(13) 3 

00220 LINE INFUT "DATE OF BIRTH (YEAR) = "3Y¢% 
00230 IF VALCY#$) = O THEN 220 

00240 IF LENCY$)=4 THEN 270 

00250 Qh="19" 

092460 Y#=QS+Y$ 

OO270 YOrVAL CY#) 

00280 LINE INFUT "MONTH DESIRED = "sE4 

00290 IF VALCE$)=0O THEN 330 

00300 IF VALCE$) = 12 THEN 290 

OO319 M1=VAL CES) 

00320 GOTO 390 


7 ~ 118 


PROGRAM NAMES BIORHYTHM/BARTOLL < CONTI & 


00330 FOR [=1 TQ 12 

00340 IF LEFT#(E%s3) <> ABCT) THEN 370 

OO350 Mil=T 

00360 GOTO 390 

OO370 NEXT T 

00380 GOTO 280 

00390 LINE INPUT “YEAR DESIRED = "52% 

00400 IF VAL(CZ#)=0 THEN 390 

00410 IF LEN(Z$)=4 THEN 440 

00420 Qe "19" 

O0430 Zhe Qh+ Zs 

00440 Yi=VAL CZ) 

00630 IF INTCYO/4)#YO/4 THEN 6603 REM IF LEAF YEAR THEN 660 
00640 RC2)=28 

OO450 GOTO 670 

006460 RC2) 229 

00670 IF YOrY1 AND MO=M1 THEN 680 

OO675 ABAECRCMO)-DOF1) 

00490 IF MO=12 OR YOrY1 THEN 730 

00700 FOR IT=MOt1 TO 12 

OO710 AFAR CT) 

00720 NEXT I 

00740 IF Yi < YO THEN 1500: REM NOT BORN 

OO750 IF Yi = YO ANID Mi <= MO THEN 15002 REM NOT BORN 
00760 IF Yi-YO < 3 THEN 800 

00770 FOR L=vYotl TO Yi-1 

00780 A=At365.253 REM 3465.25 TO ACCOUNT FOR LEAP YEAR 
OO79O NEXT I 

OOB81O ITF INTCY1/4) = Y1/4 THEN 840! REM IF LEAF YEAR THEN 840 
OOB20 RC2)=28 

00830 GOTO 850 

OOBaO KRC2 #29 

60850 IF M1l=1 THEN 880 

OO8SS FOR T=1 TO Mi-d 

00860 A=AFRCTD 

00870 NEXT T 

00880 GOTO 3000 

01500 PRINT "INCONSISTENT DATES! ! * 

O1510 LINE INFUT "DO YOU WANT TO RESTART? (Y/N) "$B4 


3 @ 419 


2H o< 


PROGRAM NAME? BIORHYTHM/BARTOL IT < CONT‘I > 


01520 
01530 
01540 
03000 
03010 
03020 
03030 
03040 
03045 
03050 
03060 
03070 
03080 
03690 
03100 
03110 
03120 
O3130 
03140 
03150 
031460 
03170 
03180 
O3190 
03200 
03210 
03220 
03230 
03240 
04000 
04010 
04020 
04930 
04040 
04200 
04205 
04210 
O4 220 
04230 


IF B&="¥" THEN 690 

IF BS <> "N" THEN 1510 

STOF 

DIM M(2091092) 9T C2) 9002) 

TOO 252 Tl) =282 TC2)=33% REM FHYS. sEMOT. » INTEL. 
CCOBASCCTF")$ CCLIBASCC"E")3 CC 2)=ASC ("I") 
X2=RCM1) 

XS=X2— 6G 

NO=Q 

FOR K=O TO 2 

X=Q 

FOR X1=0.5 TO x3 

FOR J=O TO .S STEF .5 

X=X+1 

D=CAtX1T+ J *X360/T (KR) 457. 29°58 

Ve (GINCMI+1LIKLO 

Y=INTCV) 

IF V-¥ = 0.65 THEN 3150 

Y=V¥t1 

FOR N=1 TO 10 

IF MCY»NeK)=0 THEN 3200 

NEXT N 

PRINT "DIM OVERFLOW ON “N’ IN MCYeNeK)" 
STOF 

MOY eOrK)=N 

MOY eNvK) =X 

NEXT J 

NEXT X1 

NEXT K 

REM FRINT CHART x 

FRINT ¢PRINT 3FRINT ¢PRINT ¢PRINT 
XS=QKR CML 1 

Y=O 

GOSUBR S000 

FOR Y=20 TO 0 STEF ~1 

PRINT TARCO2Z)"I"$ 

IF Y <* 10 THEN 4260 

FRINT TABCO2) $ 


PRINT * 
Fe ees ee see eee eee eee eo oer eee oe eee eee ee eer eeoeeeaoes y 
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FROGRAM NAMES BIORHYTHM/BARTOLIT < CONT“D & 


04240 
04250 
042460 
04270 
04275 
04280 
04290 
04300 
04310 
04320 
04330 
04340 
043590 
OS000 
050290 
05022 
05024 
OS026 
05030 
05040 
OS0S0 
05060 
05070 
03080 
O5090 
05100 
OS119 
05120 
OS130 
OS140 
OS150 
05160 
05170 
OS180 
O5190 
OS200 
OS210 
OS220 


05230 


FOR F=51 TO X3t FRINT “."#$ NEXT F 

PRINT CHR#(13)3 

FOR K=O TO 2 

IF MCYrOrK)=0 THEN 4310 

FOR N=1 TO MCYrOrK) 

PRINT TABCO2Z+M (CY eNyK)) $CHRE (CCK) 3 

NEXT N 

PRINT CHR&¢13)$ 

NEXT K 

PRINT TABCO2+X341)" 5" 

NEXT Y 

GOSUBR 5000 

STOF 

REM LABEL 300OkKx 

Ne="1 234567890" 

IF Y <> 0 THEN 5030 

PRINT TABRCOX3-29)/2402) "BIORHYTHM CHART FOR “sA#(M1) 5 "ey "51 
PRINT 

FOR N=1 TO 2 

FRINT TABCO2)$ 

PpTNT "i Ft ptadinrtrted dt tarred idtidt %s 
L2=R(M1)-24 

FOR L=1 TO L23) PRINT "! " 
PRINT CHR#(13)5 

IF N=2 THEN 5180 

PRINT TABCO2Z+19) 3 

FOR L=10 TO RCML) 

ON INTC(L/10) GOTO 513095140*5150 
FRINT "1 "st GOTO 5160 

FRINT "2 "$$ GOTO 5140 

PRINT "3 "3 

NEXT IL. 

GOTO 5290 

PRINT TABCO2Z+1)3 

FOR L=l TO INTCR(M1)/10) 

PRINT [63 — 

NEXT L. 

IF R(M1)=30 THEN 5290 

IF R(M1) <> 28 THEN 5280 
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PROGRAM NAME? BIOQRHYTHM/BARTOLL < CONT’t 


05240 FOR L=1 TO 8 

05250 FRINT STR#¢(L) 3s 

O5260 NEXT lL 

GOTO S290 

FRINT "1"¢ 

FRINT 

NEXT W 

IF Y= THEN 3400 

3 FRINT SPRINT 

PRINT TABC(X3-CLEN(CC#$)421))/2402)3 
PRINT "MADE EXCLUSIVELY FOR “$04 
PRINT TABCCX3-20)/2402) 3 

O5350 PRINT "BORN ON "SAS(CMO)SDOFCHRE( BE", FRPP 
O5360 FRINT TABCOQ2)"F = FHYSTICAL" 

O5370 FRINT TARCOQ2)"E = EMOTIONAL." 

O5380 PRINT TARCO2)"T = INTELLECTUAL" 
05400 RETURN 
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FROGRAM NAME? MAIL LABEL FROGRAM/BEHAR 


00010 REM LABEL FROGRAM 

00020 FRINT "00 YOU WANT TO CREATE A NEW LABEL FILE OR MAINTAIN A 
N EXISTING FILE* 

00030 LINE INPUT " NEW ~~~ MAINTAIN "9Zh 

00040 IF Z$="NEW" THEN 100 

00050 IF Z#="MAINTAIN" THEN 200 

00060 PRINT "INVALIL“ OF TION ~~ PLEASE RE-ENTER"? GOTO 30 
00100 REM NEW LABEL FILE ENTRY ROUTINE 

00110 CLEAR 

00120 DIM A$(100) ¥B$(100) ¥C$0100) ¥ 086100) ES (100) 9 F$(100) 66100) 
00130 T=1 

OO140 GOSUB 2000 

00150 GOTO 30 

00200 REM MAINTENANCE ROUTINES 

00210 PRINT "‘GET’ LABEL LIST THAT REQUIRES MAINTENANCE" 
00220 FRINT " ‘CONTINUE’ TO CONTINUE" 

00225 STOP 

00230 LINE INFUT "“"FPRINT\CORRECT\NADD\DELETENEXIT "92% 
00240 T=0 

00250 IF Z$="FRINT" THEN 400 

00260 IF Z#="CORRECT" THEN 500 

00270 IF Z$="ALN" THEN 600 

00280 IF Z#="QELETE" THEN 700 

00290 IF Z$e"EXIT" THEN 900 

00300 PRINT "INVALIDZG OF TION ~~ PLEASE RE-ENTER" 3GOTO 230 
00400 T#I+1 

OO410 IF A¥(T)="ENDI" THEN 470 

00420 IF I>100 THEN 470 

00430 PRINT 

00440 GOSUR 3000 

00450 FRINT 

004460 GOTO 400 

00470 PRINT "END OF LABEL FILE. ‘GET’ NEXT FILE THEN ’CONTINUE’ T 
Q CONTINUE," 

00480 STOF 

00490 GOTO 230 

00500 GOSUB 5000 

OOS10 GOTO 2390 

00600 T=0 


yee 125 


FROGRAM NAME? 


00605 
00610 
00620 
00622 
00630 
00640 
00650 
00700 
00705 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00900 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 


MAIL LABEL PROGRAM/BEHAR <= CONT‘D > 


I=I+1 

IF A$(I)="END" THEN 640 

IF A$(T)="" THEN 640 

IF [=100 THEN FRINT "FILE FULL"?GOTO 230 
GOTO -60S 

GOSUR 2000 

GOTO 230 

LINE INFUT "CALL SIGN OF LABEL TO BE DELETED "9 Z$ 
T=0 

I=I+1 

IF Z$=C$(I) THEN 760 

IF [I< 100 THEN 710 

PRINT Zs" NOT FOUND" 

GOTO 230 

AS(T)=AS(CI+1) 

BS(L)=BS(I+1) 

C$(T)=CHé(IT+1) 

NS (TI =Os¢I +1) 

E@(I)=E¢¢(I+1) 

F# (IT =F¢¢(I+1) 

G¢CT)=GC(I+t1) 

T=I¢13IF Ie 99 THEN 740 

PRINT Z$¢" DELETED" 3Z$="" 

GOTO 230 

END 

REM DATA ENTRY SUB-ROUTINE 

LINE INFUT "LAST NAME "SASCT) 

IF A$(I)="END" THEN 2210 

LINE INFUT "FIRST NAME» MIDDLE INITIAL "sRSC(T) 
LINE INFUT "CALL SIGN "sC$C(T) 

LINE INFUT "STREET NAME "“s0é¢I) 

LINE INFUT "CITY "sESCT) 

LINE INFUT "STATE "3FECT) 

INFUT "ZIF CODE "#GC(T) 

FRINT ¢PRINT 

PRINT "IS ADDRESS CORRECT AS FRINTED BELOW?" 
GOSUR 3000 

FRINT 

LINE INPUT “YES --~ NO “9G 


oy =~ 124 


FROGRAM NAME? MAIL LABEL FPROGRAM/BEHAR = CONT‘D > 


02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
03000 
03010 
03020 
03030 
03040 
03050 
04000 
04010 
04020 
04030 
04040 
04050 
04060 
04070 
04080 
04090 
04100 
04110 
04120 
04130 
04140 
04150 
04160 
CORD? 
04170 
04180 
05000 
05010 


IF LEFT#(G#91)<> "Y" THEN GOSUB 3000 
T=It13IF I <= 101 GOTO 2000 

PRINT “THIS LABEL LIST FILE IS FULL. ‘’PUT’ LABEL ON TAFE." 
PRINT "ADDITIONAL LABELS MUST BE FUT IN ANOTHER FILE. * 


FRINT * ‘CONTINUE’ TO CONTINUE" 

Z$=""3T=03STOF 

RETURN 

FRINT “LABEL ENTRY HAS BEEN ENDED. “FPUT’ LABELS ON TAFE." 
FRINT " ‘CONTINUE’ TO CONTINUE" 

Z$=""3T=O03;STOF 

RETURN 

REM LABEL FRINT SUB-ROUTINE 


FRINT B&(T)5" "FABCT) 

FRINT C#¢T) 

FRINT DUG¢T) 

PRINT E@(T) 5" “sFSCTI8" "FGCT) 

RETURN 

REM FIELO CORRECTION SUB-ROUTINE 

PRINT “LAST NAME=15 FIRST NAME» MIDDLE INITIAL=2"° 

PRINT "CALL. SIGN=3% STREET=4"* 

PRINT "CITY=Ss STATE=6% ZIP CODE=7" 

INFUT “INFUT NUMBER OF FIELD TO RE CORRECTED "32 

ON Z GOTO 4060+ 407024080» 40909 41009411074120 

LINE INFUT "LAST NAME "SARCTIIGOTO 4130 

LINE INFUT "FIRST NAMEy MIDOQLE INITIAL "SRECI) GOTO 4130 

LINE INFUT "CALL SIGN "sC#$(T)3GOTO 4130 

LINE INFUT "STREET NAME "sNé¢(T)3GOTO 4130 

LINE INFUT "CITY "SE8(T)3GOTO 4130 

LINE INFUT "STATE "sF#¢(I)3GOTO 4130 

INFUT "ZIFF CODE "§GCLT) GOTO 4130 

FRINT 

GOSUE 3000 

FRINT 

LINE INFUT "00 YOU NEED TO CORRECT ANOTHER FIELD IN THIS RE 
"9 Zh 

IF LEFT#(2Z2%91)="Y" THEN 4000 

RETURN 

REM ERROR CORRECTION SUB~ROUTINE 

[=0 
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FROGRAM NAME? MAIL LABEL PROGRAM/BEHAR = CONT‘D > 


05020 LINE INPUT "CALL SIGN ~ LABEL TO BE CORRECTED "9Z$ 
05030 T=It1 

05040 IF Z$=C$¢(I) THEN 3070 

O5050 IF I= 101 THEN 3030 

05060 FRINT 2%" NOT FOUND" SRETURN 
05070 FRINT "LABEL IS AS FOLLOWS?" 
05080 FRINT 

05090 GOSUB 3000 

OS100 PRINT 

OS110 GOSUER 4000 

05120 RETURN 
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FROGRAM NAME? SFELLING WORDS/WRIGHT 


00005 REM HUG F/N 885-1054 

00010 REM XXTHE SPELLING WORDS FROGRAMKX 

00020 REM WRITTEN BY KENNETH I. WRIGHT» GRAYLING» MICH. 

00030 PRINT "GOOD AY. I HAVE BEEN FROGRAMMED TO HELF YOU WITH YO 
UR SFELLING" 

00040 FRINT "WORDS. BEFORE GIVING ME YOUR LIST OF WORDS, PLEASE T 
ELA. mE" 

00050 LINE INFUT "YOUR NAME? "NS 

00060 FRINT tPRINT "THANK YOU "sN#e". NOW LETS GET TO THE SPELLIN 


00070 PRINT "FIRST» I WILL NEED TO KNOW WHAT TODAYS WORDS ARE. BE 
VERY CAREFUL" © 

00080 PRINT "TO ENTER THE WORDS CORRECTLY AND DEPRESS RETURN AFTE 
R YOU HAVE" 

00090 FRINT "TYPED IN EACH WORD. WHEN ALL YOUR WORDS HAVE BEEN TY 
RED Ny” 

OOLOO FRINT "ENTER A O TO LET ME KNOW YOU ARE FINISHED." 

OO110 DIM A$CSO) SPRINT . 

OO1L20 X#Xt] 

00130 FRINT TABC1O)33LINE INFUT "SPELLING WORD ¢ "FAS(X)IL=LENCAS 
(X)) 

00140 IF A$¢X)#"O" GOTO 170 

00150 IF L£3 THEN FRINT "WORDS MUST HAVE 3 OR MORE LETTERS" ?GOTO 
130 

00160 GOTO 120 

00170 FRINT $FRINT "VERY GOOD "$N$$"» YOU HAVE GIVEN ME" #X~19 "WOR 
NS. I WIL" 

00180 FRINT "NOW SELECT THESE WORDS AT RANDOM AND GIVE YOU THE FI 
RST ANT" 

00190 FRINT "LAST LETTERS. YOU WILL HAVE TWO CHANCES TO ENTER EAC 
H LETTER IN* 

00200 FRINT "ORDER. GOOD LUCK "SN¢#"» AND IT WILL KEEP SCORE FOR Y 
OU." WexX~1 

00210 C#2tE=2 

00220 A=INTC CXL) KRNDCL) 413 B$=AG$ (A) SLELENCES) 

00230 DS=LEFT$ (BS 1) tFOR D=2 TO Lité=f¢+" “+MIDSCRSyDy Ll) INEXT l= 
LEN (I$) 

00240 FRINT tPRINT TABC20)LEFTS (OC SPC(L~(24C) RIGHTS (MGs 1) 
00250 PRINT TARC20)5%FOR Y=OTO L/2tPRINT "~ "$3NEXT SPRINT 


a Pej i27 


FROGRAM NAME? SPELLING WORDS/WRIGHT < CONT‘’D = 


00260 IF C=#L-2 GOTO 350 

00270 ON INTCSXRNIDC1))+1 GOSUB 440745014607 470+ 480 

00280 LINE INPUT sE% 

00290 IF E*=MINS(R$vEs1 GOTO 320 

00300 F=F+tiiIF F=2 THEN T=T+i3PRINT "THE CORRECT SPELLING IS ¢ "D 
$:GOTO 350 

00310 PRINT "INCORRECT, TRY AGAIN "$N$$",. LETTER NUMBER"$E$2GOTO 
280 

00320 CHCt2sE=E+1iCLEAR FiON INTCSXRNDDCL))41 GOSUB 5005109520953 
Ov 540 

00330 IF C=#L-1 THEN C=C~1 

00340 GOTO 240 

00350 PAUSE (LOOO)ICLEAR FLA$(A)=AS(X—1) LAS CX—1)=BSIX=X-1 

00360 IF X=1 GOTO 380 

00370 FOR R=1TO 83F RINT {NEXT SPRINT "NEXT WORD"$$GOTO 210 

00380 PRINT "OUT OF “$We "SPELLING WORDS» YOU MISSED A TOTAL OF "$T 
00390 FRINT "YOUR SCORE "SN$F"» IS"*SINTCC CWT) /W) 100) $ “PERCENT, * 
00400 LINE INFUT "WOULD YOU LIKE TO SPELL THE SAME WORDS AGAIN ? 
CY OR ND) "9M% 

00410 IF M$="Y¥"THEN X=WH1iCLEAR TiGOTO 210 

00420 PRINT "THANKS FOR LETTING ME HELF. SEE YOU AGAIN SOON." 
00430 STOF 

00440 FRINT "OK "#N$F"» WHAT IS"$i?GOTO 490 

00450 FRINT "NOW TRY"#iGOTO 490 

00460 FRINT "HOW ABOUT" iGOTO 490 

00470 FRINT "LETS SEE IF YOU KNOW"#iGOTO 490 

00480 FRINT "tO YOU KNOW"$ 

00490 PRINT " LETTER NUMBER" SEs tRETURN 

00500 FRINT "GOOD CHOICE "sN#?RETURN 

00510 FRINT "THATS RIGHT "“$NS$"» VERY GOOD" RETURN 

00520 FRINT "CORRECT "$N#2RETURN 

00530 PRINT “VERY GOOD "sNS3RETURN 

00540 FRINT "EXCELLENT CHOICE "“3N#?RETURN 
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